Арина
ОЕ
Ольга Емелькина
program q171632934;
var
i, x1, x2, h: real;
begin
Write('X1 = ');
ReadLn(x1);
Write('X2 = ');
ReadLn(x2);
Write('h = ');
ReadLn(h);
i := x1;
while i <= x2 do
begin
WriteLn(ln(i)/i);
i := i + h;
end;
ReadLn;
end.
Настена
var x1,x2,h,x:real;
begin
write('x1 x2 h: '); readln(x1,x2,h); x:=x1;
repeat
write(x:10:3);
if x<=0 then writeln('none') else writeln(ln(x)/x:12:5);
x:=x+h
until 1.00001*x>x2;
readln
end.
Похожие вопросы