о! научился формулировать . уже хорошо.
program zadanie1; varmax,num,a : byte; beginmax: =0; writeln('vvodite chisla'); repeatreadln(a); if a*a> 225 then writeln('slishkom bolshoe chislo') else if max< a then max: =a ;
until a=0; readln; writeln('max=',max); end.
Поделитесь своими знаниями, ответьте на вопрос: