//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)false (т.к. x> y)
2)true (x< y,x не равен y)
3)false(x> y)
4)true(т.к. x=y, x не равен y)
Ответ дал: Гость
Линейные алгоритмы состоят из команд присваивания значений переменным, ввода и вывода данных.
Популярные вопросы