• Дано четырехзначное число. Определить, кратна ли трем сумма его цифр. Написать программу в паскале. Не используя массивы и циклы.

Ответы 1

  • var s, a: integer;beginreadln (a);s:=adiv1000+adiv100mod10+amod100div10 + amod10;if s mod 3=0 then writeln ('сумма кратна 3') elsewriteln ('сумма не кратна 3');end.
  • Добавить свой ответ

Войти через Google

или

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

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

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