Вопрос Ошибка на pascal abc

Nikson · 27 Янв 2024

Вот мой код: Program Informatica;

function ioresult: shortint;

var i: shortint;

begin

readln(i);

if ioresult(i) = 0 then

begin

writeln('Da');

end;

if ioresult(i) 0 then

begin

writeln('No');

end;

end. Почему-то программа пишет ошибку: Строка 14 - ожидалось ";", а встречено "."

Calipso · 27 Янв 2024

ну так точку в самом последнем end убери

лого · 27 Янв 2024

потому что после end точка должна стоять а не ; выше посмотри где 2 энда

sdbx · 27 Янв 2024

потому что определение функции заканчивается end; определение программы заканчивается end. должно так: Program Informatica;

function ioresult: shortint;
var i: shortint;
begin
readln(i);
if ioresult(i) = 0 then
begin
writeln('Da');
end;
if ioresult(i) 0 then
begin
writeln('No');
end;
end;

begin // точка входа в программу
// здесь код, вызывающий функцию ioresult
end. // конец программы
до кучи - функция объявлена без параметра function ioresult: shortint; а вызывается с параметром ioresult(i) это тоже ошибка.

semik0078 · 27 Янв 2024

{$APPTYPE CONSOLE}

Program Informatica;
var
i: shortint;

begin
readln(i);
if i = 0 then
begin
writeln('Da'
end;
if i <> 0 then
begin
writeln('No'
end;
end.

Олег Соколенко · 27 Янв 2024

Еще один end нужен

Вопрос Ошибка на pascal abc

Похожие темы

Privacy & Transparency

Privacy & Transparency