Помогите исправить ошибки.
Листинг программа:
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.
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.
---
проверь, пожалуйста, правильность программы по условию, потому что очень большой вывод получается.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
