• Написать программы, которые определяют:
    - правда ли, что последняя цифра введенного числа кратна первой;
    - правда ли, что сумма первой и последней цифр кратна 2;
    - правда ли, что третья справа цифра равна 5 или 0;
    - правда ли, что само число отрицательное;
    Отработайте программы на Паскале с помощью компьютера

Ответы 1

  • 1) На паскале: если число целое, тоvar a : integer;Label Transfer;beginreadln(a);Last := a mod 10;N := 999for counter = 1 To N Do if ((a div 10) < 10) and ((a div 10) > 0)     begin    First := a div 10;    Goto Transfer; else    a := a div 10;Transfer:if (Last mod First = 0) then written('True')                                    else written('False');readln();end.Если что-то не понятно - в лс или в комменты сюда
    • Автор:

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

Войти через Google

или

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

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

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