Используя цикл “for”, “while”, repeat” найти сумму - вопрос №25313281050 от MiYaG11 02.08.2020 23:41

Question

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

MiYaG11 · Answer

Var i,s:integer;beginfor i:=10 to 50 doif (i mod 3 = 0) or (i mod 5 = 0) then s+=i;writeln(s);end....