Найти произведение натуральных чисел от F до 11 (F<11)

Составить программу.

Язык Pascal

Question

Адаида

11 сентября, 22:58

+4

Ответы (1)

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

Ритуся · Answer 1

Var f, i, x: Integer;

begin

writeln ('введите F:') ;

readln (f) ;

x:=1;

for i:=f to 10 do x:=i*x;

writeln ('Вывод: ', x) ;

end.

Найти произведение натуральных чисел от F до 11 (F<11)Составить программу.Язык Pascal