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

Ответы 1

  • Ответ:

    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.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years