:написать программу, вычисления суммы чисел, кратных - вопрос №6385712510 от Kseniakool 11.03.2022 09:33

Question

Информатика: :написать программу, вычисления суммы чисел, кратных 5, в диапазоне от 100 до 1

Kseniakool · Answer

Var i,s:integer;beginfor i:=1 to 100 do if (i div 5) = 0 thens:=s+i;writeln(s);end....