Информатика 9 ! найти произведение всех целых чисел - вопрос №367289191 от Ксееее 13.10.2022 01:15

Question

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

Ксееее · Answer

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