Единственная надежда на ! 3-1 после выполнения фрагмента алгоритма переменная a приняла значение 8. определить минимальное целое n, при котором это возможно. a: =0; i: =1; while i 0)then x: =x+1; end; x: =x*x-2*x+1; поиск ошибок в программе. найти и исправить ошибки в программе. 4-1 program z; var n,m: char; beginwrite(n -> ); readln(m)m: =1; while sqr(m)> =n do m: =m+1; writeln(m); end 4-2 program д; beginvar i,n,k,a: integer; readln(n); k: =0; for i: =1 to n doreadln(a); if a > 0 then k: =k+1; end; wreteln(k = ',k: 0: 2); end. 4-3 program w; var max; a: integer; n: longint; beginwrite('n -> '); readln(n); max: =10; while n < > 0 begina: =n mod 10; if a > max; then max: =a; n: =n mod 10; end;
Код программы можно посмотреть Alt+F11