Ответы на вопрос:
Var i: integer; s: real; begin s: =0; for i: =1 to 50 do s: =s+1/i; write('сумма: ',s: 5: 2); readln; end.
Популярно: Информатика
-
Gulshat5119.03.2022 03:03
-
DanyaHD07.11.2021 05:24
-
shvetzovayuliy28.06.2020 20:53
-
lolloo9907.08.2021 12:13
-
hello12011.01.2022 19:48
-
Pipisk30.01.2020 22:44
-
krasilovaen11.03.2020 18:45
-
ДашаКотик200729.11.2020 02:09
-
ира96721.12.2022 03:45
-
khadeevaelena02.05.2020 16:15