Написать программу, которая вычисляет произведение целых чисел от 1 до n. Число n запрашивается с клавиатуры. Pascal ABC

Question

Азира

5 августа, 06:31

+4

Ответы (1)

Знаете ответ на вопрос?

Камрин · Answer 1

Var

i, n:integer;

s:real;

begin

Write ('n = ') ;

Readln (n) ;

s:=1;

for i:=1 to n do s:=s*i;

Writeln ('Произведение ', s) ;

end.