Найдите и исправьте ошибки в программе:

Var x, y, i:real;

Begin

Read (′введите′ x) ;

Y:=10;

y:=y*x;

Wraiteln (y равен, y) ;

End.

Question

Дарюша

18 октября, 09:49

+3

Ответы (1)

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

Софья · Answer 1

Var x, y, i:real;

Begin

writeln ('введите х') ;

read (x) ;

i:=10;

y:=i*x;

writeln ('y = ', y) ;

end.

скорее всего так

Найдите и исправьте ошибки в программе:Var x, y, i:real;BeginRead (′введите′ x) ;Y:=10;y:=y*x;Wraiteln (y равен, y) ;End.