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

Question

Эмма Петрова

Информатика

16 января, 00:16

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

+5

Ответы (1)

Знаешь ответ на этот вопрос?

Алина Егорова · Answer 1

Program Proizvedenie;

uses crt;

var i: integer;

pr, a: real;

begin

pr:=1;

for i:=1 to 10 do

begin

writeln ('Введите число');

readln (a);

pr:=pr*a;

end;

writeln;

writeln ('Произведение = ', pr);

end.