Написать программы на паскале. 1. вычислить произведение нечетных чисел в диапазоне от 40 до 20 2. определите и выведите на экран количество чисел между 20 и 100 ,которые делятся без остатка на 4,5 и 10 одновременно.
116
422
Ответы на вопрос:
var i,count: integer; proizv: longint; beginproizv: =1; count: =0; for i: =20 to 40 do begin if (i mod 2< > 0) then proizv: =proizv*i; end; for i: =20 to 100 do if (i mod 45=0)then 3{делятся на 4,5 и на 10=> делятся на 45} count: =count+1; writeln('произведение равно: ',proizv); writeln('число кратных чисел: ',count); end.
Популярно: Информатика
-
anastasiya5budkevich23.04.2020 23:48
-
zemkina34730.10.2022 20:26
-
mia01727.01.2020 23:28
-
коля86119.07.2020 16:47
-
nik2004200202.09.2020 20:04
-
Kira666666666603.11.2021 12:35
-
zhekabigboss01.05.2022 02:50
-
Пакмен00718.12.2022 04:54
-
ученик2282620.05.2022 23:00
-
Andreyvko116.01.2021 12:46