Program Posledow;Var x, y: real;Beginx:=8;Repeat y:=SQR(x-8)/6;Writeln (x,' ',y);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.
---
проверь правильность программы по условию, потому что очень большой вывод получается.