//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.
Спасибо
Ответ дал: Гость
program p;
var s,a,b,c: string; begins: =' фигуры'; writeln('введите названия трёх фигур'); read(a,b,c); writeln(s,': ',a,', ',b,' и ',c); end.
Популярные вопросы