Опубликовано 6 лет назад по предмету
Информатика
от semenovamilana
Найти и исправить ошибки в программе. Задача 4-1 proram Z;VAR n,m: char;BEGINwrite(n -> ); readln(m)m:=1;while sqr(m)>=n do m:=m+1;writeln(m);END Задача 4-2program Д;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;endreadln(max);END
Войдите или зарегистрируйтесь, чтобы добавить ответ или свой вопрос на сайт