Program2.pas(12) : Нельзя преобразовать тип real к integer program formula12; const a...

Question

Program2.pas(12) : Нельзя преобразовать тип real к integer program formula12; const a =19.6 ; b =7.8 ; var y: real; x: integer; begin x :=14.6 ; repeat x:= x + 0.1; y :=sqrt((a+b*x)/(sqr(ln(x)))); write(' y=', y:4:2, ';') until x>16 end.

Answer 1

В разделе var ты описываешь х как целое:

x: integer;  

А потом пытаешься присвоить х дробное число:

x :=14.6 ;

Замени x: integer;  на x: real; и будет тебе счастье.