Составить алгоритм нахождения суммы и произведения - вопрос №913263420150 от Kotja6996 02.02.2023 20:59

Question

Информатика: Составить алгоритм нахождения суммы и произведения чисел от 20 до 150

Kotja6996 · Answer

составить алгоритм нахождения суммы и произведения чисел от 20 до 150
var k,i:integer;sum:longint;P:double;Beginp:=1;for i:=20 to 150 do beginp:= p * i;sum:= sum + i;end;writeln;writeln('произведение чисел = ',p);writeln('сумму чисел = ',sum)end.