Question

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

Answer 1

Ответ:

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

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