Информатика 9 ! найти произведение всех целых чисел от 1 до a (значение a вводится с клавиатуры). система pascal

Question

Информатика: Информатика 9 ! найти произведение всех целых чисел от 1 до a (значение a вводится с клавиатуры). система pascal

madara014 · Answer

var i,a,s:integer; begin readln(a); s:=1; for i:=1 to a do s:=s*i; writeln(s); end....