Информатика 9 ! найти произведение всех целых чисел - вопрос №913673116 от nbibyf2005 19.12.2022 07:24

Question

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

nbibyf2005 · Answer

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