Информатика 9 ! найти произведение всех целых чисел - вопрос №367289191 от Ariunkh 19.05.2020 06:30

Question

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

Ariunkh · Answer

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