Ответы на вопрос:
Объяснение:
1)
var i:integer; s:real;
begin
s:=0;
for i:=1 to round((30-1)/0.5)+1 do
s:=s+i*0.5+0.5;
writeln('s = ',s:6:1);
end.
Результат:
s = 914.5
2)
const e=0.1;
var i:integer; s:real;
begin
i:=1;
s:=2;
while 2/i>e do
begin
s:=s+2/i;
i:=i+1;
end;
writeln('s = ',s:5:2);
end.
Результат:
s = 9.20
Популярно: Информатика
-
vani200619.10.2022 06:45
-
Amirhan00319.02.2023 13:03
-
lubas14325.11.2022 05:13
-
Фейдииик25.07.2020 17:02
-
Мышка00714.03.2022 23:21
-
денил5506.06.2021 16:15
-
arslankutdusov26.02.2023 18:46
-
AnToNoVa1311.04.2021 18:42
-
ARINA565613416.09.2022 14:38
-
kavuzov01karamba7311.02.2020 09:02