1. Информатика
  2. Найти произведение нечетных чисел

Найти произведение нечетных чисел от 1 до 100. блок схема

ElenaDzaraxova ElenaDzaraxova    2   11.09.2019 04:30    8

Ответы
Yuki16 Yuki16  07.10.2020 06:47
Program q193766551;var  i, s: Integer;begin  s := 0;  for i := 2 to 100 do    Inc(s, i * Integer(not Odd(i)));  WriteLn(s);end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
MrMut222 MrMut222  28.12.2022 21:44
Интернет желісінен 3D баспалардын маркалары туралы ақпарат іздеңдер. Табылған ақпараттарды дәптерге жазын-по сигманский...
flku flku  26.05.2019 10:00
Pascal заполнить массив20 элементов случайными числами от 0 до 10. подсчитать сколько раз встречается число 5 в массиве a....
Polina09878 Polina09878  26.05.2019 10:00
Сколько бит информации будет получено при угадывании числа в диапазоне от 1 до 256?...
koshulinskayag koshulinskayag  26.05.2019 10:00
Найдите трехзначное число, равное сумме десятков, квадрата цифры сотен и куба цифры единиц, напишите программу...
Assel0802 Assel0802  26.05.2019 10:10
Решить две (паскаль) 1 в одномерном массиве случайных вещественных числе f(17) определить количество положительных элементов и их сумму. 2 в матрице l(5,5) случайных вещественных...
gulyaaxundova gulyaaxundova  11.09.2019 10:40
Инициализировать массив а из 20 элементов на отрезке [20; 70] и вывести его на экран. найти сумму четных значений элементов массива количество значений кратных 5...
lilia822 lilia822  11.09.2019 10:40
Вpascal abc ввести номер месяца и вывести кол-во дней в месяце в невысокосном году...
Aksvat1999 Aksvat1999  11.09.2019 10:40
Исполнитель калькулятор имеет только две команды вычти 1 умножить на 2 выполгяя команду гомер ,калькулятор вычитает из числа га экране 1,а выполняя команду 2 ,умножить число...
iukhg iukhg  11.09.2019 10:40
Будут ли различаться результаты поиска в различных индексных поисковых системах? почему?...
vlad1417 vlad1417  11.09.2019 10:50
Подскажите, что не так сделал? почему программа не умножает c на a? var p,a,i: integer; begin p: =8; for i: =1 to 10 do begin writeln ( введите двузначное число ); readln (a);...

Популярные вопросы