То 5 градусов то 15 градусов
изменение давление не изменяется
Роза ветров 365км-сек
Program abc;
var
n, i: integer;
s: real;
begin
write('Введите количество чисел: ');
readln(n);
for i := 1 to n do
s := s + 1 / i;
write('Сумма обратных чисел = ', s);
end.
1-3
2-2
3-1
жду лучший ответ)