Question

Задан набор пар положительных чисел 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.

Answer 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.