Информатика 9 ! найти произведение всех целых чисел - вопрос №913673459 от Anastasia16666 01.01.2020 14:31

Question

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

Anastasia16666 · Answer

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