Помогите найти ошибку (паскаль) program u1; var max1,max2,k:longint; begin readln (k); max1:=k; max2:=k; repeat readln (k); if k больше max1 then begin max2:=max1; max1:=k; until k меньше больше 0; writeln (max2); end; end. ...
Помогите найти ошибку (паскаль)
program u1;
var max1,max2,k:longint;
begin
readln (k);
max1:=k;
max2:=k;
repeat
readln (k);
if k>max1 then begin
max2:=max1;
max1:=k;
until k<>0;
writeln (max2);
end;
end.
Выводит ошибку в 12 строчке "встречено until, а ожидалось ; "
Гость
Ответ(ы) на вопрос:
Гостьbegin в цикле не закрыл end ом.
Не нашли ответ?
Похожие вопросы