Регистрация
Vens12
23.05.2023 15:17
Алгебра
Есть ответ 👍

Розкрийте дужки: 2а³•(4а+3а-с2) ОЧЕНЬ

192
296
Посмотреть ответы 1

Ответы на вопрос:

Гогого11
Гогого11
4,4(89 оценок)

var

  n: longint;

  k,sum: integer;

begin

  write ('n = ');

  readln(n);

  k: =0;

  sum: =0;

  while n < > 0 do

    begin

        if (n mod 10) mod 2 = 0 then

          begin

            k: =k+1;

            sum: =sum+(n mod 10);

          end;

        n: =n div 10;

    end;

  writeln ('summa: ',sum);

  writeln ('kol-vo: ',k);

  readln;

end.

Популярно: Алгебра