Напишите программу на паскале.вычислите произведение чисел от 1 до 100 кратных 3
267
419
Ответы на вопрос:
Var i, p: longint; begin p: =1; for i: =1 to 100 do if (i mod 3)=0 then p: =p*i; writeln('resuktat ',p) end.
Популярно: Информатика
-
АнгелКрови07.10.2021 11:49
-
mikilinaf789016.08.2022 10:39
-
wiamous107.02.2022 14:56
-
aisasiada25.02.2022 18:21
-
anastaciarocha25.02.2022 17:05
-
AngelInna22832227.10.2022 14:00
-
aseeva288302.04.2021 14:27
-
Merto26.04.2020 13:55
-
dasha0009725.02.2023 14:47
-
nastyalomeyko12.07.2020 22:37