Составить программу вычисления произведения чисел от 1 до 500 кратных 13

uglyfrosha uglyfrosha    3   21.09.2019 11:01    0

Ответы
anya2403 anya2403  08.10.2020 06:59
Var sum,i:integer;    beginfor i:=1 to 500 do    if (i mod 13 =0) then sum:=sum+i;writeln(sum);end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика