Var a,max:integer;
begin
max:=0;
repeat
readln(a);
if a>max then max:=a;
until a=0;
writeln('max: ',max);
end.
Вариант с циклом while
var a,max:integer;
begin
writeln('Введите число: ');
readln(a); max:=a;
while a<>0 do begin
writeln('Введите число: ');
readln(a);
if a>max then max:=a;
end;
writeln('max: ',max);
end.
А) блок
б) пуск
в) цветок
г) музыка
д) командир
е)клубника
Ответ:
Исходя из чего нужно выбрать верный ответ?
есть вопросы пиши. если чего то не видно.
100:4=25м2 можно огородить