• Нужно написать программу. Найдите сумму цифр не кратных 3 и произведение цифр больших 5 в записи числа.

Ответы 1

  •  var   a,b,s,p : integer;    begin  readln (a);  s := 0;  p := 1;    while a > 0 do   begin    b := a mod 10;    a := a div 10;        if b mod 3 <> 0 then     s := s + b;    if b > 5 then     p := p * b;   end;    if p = 1 then    p := 0;        writeln (s);    writeln (p); end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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