Информатика Pascal: отыскать сумму 1+12+123+1234+12345+123456+1234567

Ответ:

1371738

Разъяснение:

1. var
2.    i: integer;
3.    number, sum: real;
4. begin
5.    for i := 1 to 7 do
6.        begin
7.            sum := sum * 10 + i;
8.            Writeln(sum);
9.            number := number + sum;
10.        end;
11.    
12.    Writeln();
13.    Writeln(number);
14. end.