• Проверьте, делится ли выбранное число на 5, на 11 или 13
    нужно сделать в Pascal ABC

Ответы 1

  • var a:integer;beginwriteln('Введите число');readln(a);if (a mod 5=0) then writeln('Число ',a,' делится на число 5')else writeln('Число ',a,' не делится на число 5');if (a mod 11=0) then writeln('Число ',a,' делится на число 11')else writeln('Число ',a,' не делится на число 11');if (a mod 13=0) then writeln('Число ',a,' делится на число 13')else writeln('Число ',a,' не делится на число 13');end.
  • Добавить свой ответ

Войти через Google

или

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

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

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