Составьте программу для вычисления значения выражения: 1 + 1,1 + 1,2 ... + 5
PascalABC.NET ​

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

Объяснение:.