Auzius
5 год назад
Пожалуйста посчитайте пожалуйста, завтра сдавать,не шарю,пооомогите
ОТВЕТЫ
Desislava
Oct 24, 2020
//должно работать
var
x: real;
begin
x := 1.0;
while (x <= 2) do
begin
Writeln(exp(ln(x + exp(ln(2) * x)) * 2) + 21);
x := x + 0.5;
end;
end.
var
x: real;
begin
x := 1.0;
while (x <= 2) do
begin
Writeln(exp(ln(x + exp(ln(2) * x)) * 2) + 21);
x := x + 0.5;
end;
end.
478
Смежные вопросы:
