var a,b,h,s:real;
begin
writeln('Программа считает сумму чисел: 1 + 1.1 + 1.2 +...+ 5');
b:=1;
a:=1;
while a < 4.9 do begin
a:= a + 0.1;
b:= b + a;
end;
writeln(b);
end.
ответ : 123
Объяснение:.
var a,b,h,s:real;
begin
writeln('Программа считает сумму чисел: 1 + 1.1 + 1.2 +...+ 5');
b:=1;
a:=1;
while a < 4.9 do begin
a:= a + 0.1;
b:= b + a;
end;
writeln(b);
end.
ответ : 123
Объяснение:.