Ответы
Ответ дал:
0
Ответ:
program Summa;
var
i: Integer;
s: Double;
begin
s := 0;
for i := 1 to 5 do begin
s := s + i / 3;
end;
WriteLn ('Сумма = ', s :15 :10);
ReadLn;
end.
Вас заинтересует
4 месяца назад
4 месяца назад
11 месяцев назад
11 месяцев назад
2 года назад
2 года назад