Составить программу: 1) вычислить произведение - вопрос №942392315 от magameded10 20.06.2020 11:08

Question

Информатика: Составить программу: 1) вычислить произведение натуральных чисел кратных 5, от 10 до 40 2) вычислить сумму квадратов натуральных чисел от 11 до 19

magameded10 · Answer

1...Uses crt;var s,i:integer;begins:=1;for i:=10 to 40 doif i mod 5 = 0 then s:=s*i;writeln (s);end.2Uses crt;var s,i:integer;beginfor i:=11 to 19 do s:=s+(i*i);writeln (s);end....