//pascal abc.net v3.0 сборка 1111 //for var i,n,r: integer; begin readln(n); r: =1; for i: =1 to n do r: =r*i; write(r); end.//whilevar i,n,r: integer; begin readln(n); r: =1; i: =0; while i< > n do begin; inc(i); r: =r*i; end; write(r); end.//repeatvar i,n,r: integer; begin readln(n); r: =1; i: =0; repeat inc(i); r: =r*i; until n=i; write(r); end.
Спасибо
Ответ дал: Гость
1.123456789-номер телефона
2.мама помыла посуду-ткстовая информация
3.какой нибудь рисунок
4.музыка
5.кино
Ответ дал: Гость
объединение северного и южного египта произошло около 3000 г. до н.э.
Популярные вопросы