Составить программу: 1) вычислить произведение - вопрос №94230211 от Ilyavazhnov1995 07.03.2021 06:41

Question

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

Ilyavazhnov1995 · 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....