Ответы на вопрос:
ответ:
var s: real;
n,i: integer;
begin
s: =0;
write ('введите n: ');
readln(n);
for i: =1 to n do s: =s+(1/i);
writeln ('s = ',s: 0: 2);
end.
Открываешь консоль отладки после запуска приложения, просматриваешь логи, получаешь ответ
Популярно: Информатика
-
мурзик5519.08.2020 08:11
-
Сильнолол09.10.2020 03:14
-
DikaTheBro30.12.2022 00:10
-
zhabinalena101.07.2021 12:59
-
карыч1927.04.2020 00:19
-
Dilnaz1001109.03.2023 11:11
-
неудачник1611.11.2020 20:58
-
koretstanya124.03.2021 19:27
-
amolodyka17.08.2021 06:12
-
TumblrPrincess14.02.2022 10:06