Ответы на вопрос:
var
a: integer;
b: real;
begin
for a: =1 to 10 do b: =b+1/a;
writeln(b);
end.
Популярно: Информатика
-
дима4класс104.03.2020 14:53
-
hopas113.11.2021 21:09
-
katerina239830.11.2020 04:07
-
efanovakatena21.09.2022 13:25
-
andreymarshev0p0b1aa02.12.2021 18:04
-
Аружан20034527.04.2020 17:33
-
diyoyoroo21.08.2021 05:43
-
Maksim255328.07.2020 18:15
-
Gladiator97409.09.2021 20:53
-
skromnikplay02.03.2020 16:18