Ответы на вопрос:
var
a,s: real;
begin
a:=1;
s:=1;
repeat
a:=a+0.5;
s:=s+a;
until a=30;
writeln(s);
end.
ответ: 914.5
Популярно: Информатика
-
еккаа11.07.2022 09:18
-
jil35620.06.2022 08:36
-
Alyona448801.03.2022 01:08
-
shamilsaidov205.06.2020 16:53
-
гвониха20.05.2023 21:05
-
Karlik77714.12.2022 13:01
-
nastya051456711.04.2021 14:26
-
kosta29200614.04.2023 06:54
-
katyvolkova8114.05.2021 04:29
-
soloveva250602.07.2021 02:30