• Тема: ABC Pascal. Простые и составные условия. Алгорическая конструкция "ветвление" (if, then, else и проч.)
     Задача: Дано целое число. Определить, оканчивается ли оно цифрой 7 и делится ли без остатка на 13.
     Буду очень благодарна!

Ответы 1

  • uses crt;var a:integer;beginwrite('Введите число: ');readln(a);if (a mod 13)=0 then write('Число делится без остатка на 13') else write('Число не делится без остатка на 13');writeln;if (a mod 10)=7 then write('Число оканчивается на цифру 7') else write('Число не оканчивается на цифру 7');end.Если нужно выполнять программу из-под программной оболочки, удали первую строку. 

    • Автор:

      kade
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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