Решите напишите программу, в которой осуществляется ввод целых чисел( ввод осуществляется до тех пор, пока не будет введен ноль) и выводит на экран сумму всех введенных чисел, кратных 5.
151
283
Ответы на вопрос:
Var a,b: integer; begin a: =1; while a< > 0 do begin read(a); if a mod 5 = 0 then b+=a; end; writeln(b); end.
Популярно: Информатика
-
зубрильчик09.04.2020 08:03
-
АняМур12307.01.2020 17:44
-
nika1205200615.04.2023 08:03
-
alinab34625.11.2021 07:48
-
Anonim167802.09.2022 22:20
-
Fleksander12.01.2023 13:41
-
Demontino201605.05.2022 18:32
-
usenovaa06.12.2022 05:22
-
vasyapupkin12121209.03.2020 07:00
-
galiamikhajlova17.04.2021 23:29