Ответы
Ответ дал:
1
uses crt;
var
a,b:INTEGER;
w,r,t:REAL;
begin
a:=2;
b:=3;
while w <=10/11 do
begin
w:=a/b;
a:=a+1;
b:=b+1;
r:=a/b;
t:= w+r;
end;
writeln ('Результат вычислений :');
writeln;
writeln ('Сумма выражения = ',t);
end.
попробуй это
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад