Составить программу дано целое число n (> 0). найти произведение 1 · 2 · 3 · …(n сомножителей).

maryxlenko maryxlenko    1   19.09.2019 02:10    1

Ответы
Kate7779393727 Kate7779393727  08.10.2020 01:15
Var x,y,z:integer;
Begin
Read(x);
z:=1;
For y:=1 to x do z:=z*y;
Write(z);
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика