Паскаль

var a:integer;

begin

writeln ('Введите любое число') ;

read (a) ;

if (a>0) then

a:=a+1;

writeln (a) ;

else

a:=a-2;

writeln (a) ;

end.

встречено else а ожидалось оператор?

Какая ошибка?

Question

Информатика

Наля

26 июня, 23:54

Паскаль

var a:integer;

begin

writeln ('Введите любое число') ;

read (a) ;

if (a>0) then

a:=a+1;

writeln (a) ;

else

a:=a-2;

writeln (a) ;

end.

встречено else а ожидалось оператор?

Какая ошибка?

+4

Ответы (1)

Знаете ответ на вопрос?

Агафоклия · Answer 1

Тут не она ошибка, а множество. Должно быть так:

var

a: integer;

begin

writeln ('Введите любое число') ;

read (a) ;

if (a > 0) then

begin

a : = a + 1;

writeln (a)

end

else

begin

a : = a - 2;

writeln (a)

end

end.

Паскальvar a:integer;beginwriteln ('Введите любое число') ;read (a) ;if (a>0) thena:=a+1;writeln (a) ;elsea:=a-2;writeln (a) ;end.встречено else а ожидалось оператор?Какая ошибка?

Паскаль

var a:integer;

begin

writeln ('Введите любое число') ;

read (a) ;

if (a>0) then

a:=a+1;

writeln (a) ;

else

a:=a-2;

writeln (a) ;

end.

встречено else а ожидалось оператор?

Какая ошибка?