tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составьте алгоритм нахождения
Составьте алгоритм нахождения произведения всех четных чисел от 0 до 100
valeraadyan
3 26.05.2019 08:40
2
Ответы
Inalova77
22.06.2020 18:19
Программа на Pascal выглядит так:
Program Product;
Var i: Integer;
r: LongInt;
Beginr := 1;
For i := 0 To 100 Do
If i Mod 2 = 0 Then
r := r * i;
WriteLn('Результат: ', r);
ReadLn;
End.
Но так как нуль - тоже чётное, то всё произведение будет равно 0.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Анд2007
15.03.2021 09:53
2 задание. Решите задачу, решение пропишите в документе ( ) Если первый ученик за 1 час может собрать Х ведер яблок, второй ученик - У ведер, третий - Z ведер, то сколько...
olyatko1984
24.06.2019 23:00
Решение в паскале abc! дан массив a размера n. вывести его элементы в следующем порядке: a1, an, a2, an−1, a3, an−2, … . вот что я попытался решить, не могу ввод осуществить...
ав003
24.06.2019 22:50
Определите значение переменной c после выполнения фрагмента алгоритма b: =2; c: =0; while b 6 do begin c: =c+b; b: =b+1 end; write(c)...
крыл8888
12.06.2019 05:50
Какой объем в памяти компьютера занимает предложение миру - мир!...
Turtlrs
12.06.2019 05:40
Есть : телефонная компания взимает плату за услуги телефонной связи по следующему тарифу: 370 мин в месяц оплачиваются как абон.плата, которая составляет 200 монет. за...
koren27
12.06.2019 05:40
Какие свойства реальных объектов воспроизводят следующие модели? • муляжи продуктов в витрине магазина; • чучело птицы; • заводной игрушечный автомобиль....
leo24242
20.05.2021 13:19
Программа с широкими возможностями обработки теста (Вставка гиперссылок, диаграмм, рисунков называется текстовый... ...
Санчоs
20.05.2021 13:20
ТЕХНІЧНІ ПАРАМЕТРИ. А) Текст має бути набраний на комп’ютері (Microsoft Office Word 2003 чи пізніші версії). Шрифт: гарнітура – Times New Roman, кегль – 14 пт, інтервал...
lyudmila198604p06n4e
20.05.2021 13:21
Родина з Дніпропетровська планує протягом року до різних міст України автомобілем . Знайдіть відстань від Дніпропетровська до Києва , Львова , Харкова ,Одеси, Херсона,...
kamallm712oxbgkk
12.03.2019 16:08
Составьте программу в паскале при умножении на 4 четырехзначного числа, все цифры которого различны, получается число, записываемое теми же цифрами, но в обратном порядке....
Популярные вопросы
АВ и АС – отрезки касательных, проведенных к окружности радиусом 9см....
3
Умоляю Сравните положение населения Восточной Галиции, Буковинита Закарпатье...
1
Какое предложение имеет в своём составе обособленное обстоятельство...
3
Мяч бросили горизонтально со скоростью 20 м/с. Дальность поле- та мяча...
2
Накреслити відрізок довжина якого становить 4/6 від 12 см...
3
с ответом на во Как вы понимаете утверждение, что «Конец 14 века –...
3
Решите В какое время дня тень, отбрасываемая палочкой, воткнутой в...
2
−х2 − 4х −3 = 0 составить график...
3
Как подтянуть тормоз на BMX кто знает напишите...
2
Два резистора лампочка и электрический двигатель соединены параллельно...
1
Program Product;
Var i: Integer;
r: LongInt;
Beginr := 1;
For i := 0 To 100 Do
If i Mod 2 = 0 Then
r := r * i;
WriteLn('Результат: ', r);
ReadLn;
End.
Но так как нуль - тоже чётное, то всё произведение будет равно 0.