program n_66;
var x, max:real; i: integer;
begin
writeln ('Введите число');
readln (max);
for i:=1 to 9 do begin
writeln (x);
if x>max then max:=x
end
writeln ('максимум -', max');
end.
Встречено 'writeln' а ожидалось ';'
var x, max:real; i: integer;
begin
writeln ('Введите число');
readln (max);
for i:=1 to 9 do begin
writeln (x);
if x>max then max:=x
end
writeln ('максимум -', max');
end.
Встречено 'writeln' а ожидалось ';'
More Questions From This User See All
Answers & Comments
Если не помогло скажи