Ответы
Ответ дал:
0
1:
var n,s:integer;
begin
n := 10;
s := 0;
while n >= 1 do begin
s := s + n;
n := n-1;
end;
write(s);
end.
2:
var n:integer;
s:real = 0;
begin
n := 10;
while n >= 2 do begin
if n mod 2 <> 0 then s := s - 1/n
else s := s + 1/n;
n := n-1;
end;
write(s:0:2);
end.
Аноним:
Здраствуйтe, можете мне помочь если не затруднит? https://znanija.com/task/43690653
Вас заинтересует
1 год назад
1 год назад
8 лет назад