В чем ошибка помогите

var a, y: integer;

begin

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

readln (a) ;

lf a then

y:=aa+1/sqrt (aa+1) ;

write (y) ;

end.

Question

Информатика

Сенюра

26 августа, 02:35

В чем ошибка помогите

var a, y: integer;

begin

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

readln (a) ;

lf a then

y:=aa+1/sqrt (aa+1) ;

write (y) ;

end.

+5

Ответы (1)

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

Талина · Answer 1

Lf a then - во-первых, тут видимо if хотели написать, а во-вторых между if и then должно следовать выражение логического типа, а у Вас указана переменная целого типа.

В чем ошибка помогитеvar a, y: integer;beginwrite ('введите любое число') ;readln (a) ;lf a theny:=a*a+1/sqrt (a*a+1) ;write (y) ;end.

В чем ошибка помогите

var a, y: integer;

begin

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

readln (a) ;

lf a then

y:=aa+1/sqrt (aa+1) ;

write (y) ;

end.