Используя цикл “for”, “while”, repeat” найти сумму чисел от 10 до 50 кратных 3 или 5.

daria383ver daria383ver    3   04.06.2019 22:20    85

Ответы
kirillstetskii kirillstetskii  01.10.2020 19:37
Var i,s:integer;
begin
for i:=10 to 50 do
if (i mod 3 = 0) or (i mod 5 = 0) then s+=i;
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика