Помогите исправить ошибки.

Листинг программа:

Program Posledow;

Var x, y: real;

Begin

x:=8

Repet` y:=SQR(x-8)/6;

Writeln (x:8:3, y:8:3);

x:=x+6;

Until y+5<0;

End.

1

Ответы и объяснения

  • Sky09
  • профессор
2013-05-26T09:43:28+00:00

Program Posledow;
Var x, y: real;
Begin
x:=8;
Repeat y:=SQR(x-8)/6;
Writeln (x,' ',y);
x:=x+6;
Until y+5<0;
End.

---

проверь, пожалуйста, правильность программы по условию, потому что очень большой вывод получается.