Задан набор пар положительных чисел x1,y1, x2,y2,… . Признак завершения ввода чисел – 0.
Напишите программу решения задачи на языке Паскаль.
x1=4,1,x2=7,8,x3=3,6,x4=6,7,x5=0.
y1=2,1,y2=8,2,y3=3,3,y4=5,7;y5=0.
Приложения:
![](https://st.uroker.com/files/393/3939121fa8b72658ebf5d4cad67968e5.jpeg)
Ответы
Ответ дал:
1
var
x,y:real;
begin
while true do
begin
readln(x);
if x=0 then break;
readln(y);
x:=2*x+1;
y:=ln(y*y+2)/ln(10);
writeln(x/y);
end;
end.
Вас заинтересует
1 год назад
1 год назад
7 лет назад
8 лет назад
8 лет назад