• Не могу понять, где тут ошибка ( Программа Pascal ). Помогите, пожалуйста:
    Program delenie_na_4;
    Var a: integer;
    Begin
    write ('4');
    Read (a);
    If 16 mod 4=0 then
    write ('число'; 16, 'делится на 4')
    Else
    write ('число',16, 'не делится на 4')
    End

Ответы 9

  • да и вам же нужно узнать, делится ли а на 4, поэтому нужно писать write "('число'; a, 'делится на 4')"
  • А почему можно написать только число 16?
    • Автор:

      melvin
    • 6 лет назад
    • 0
  • Наоборот, не нужно писать 16, потому что программа состоит не в проверке делимости 16 на 4 (что очевидно), а в проверке делимости а на 4
    • Автор:

      destini
    • 6 лет назад
    • 0
  • Деление чего на 4? 16 или переменной a?
  • Проверять делимость 16 на 4 бессмысленно, поэтому а на 4
  • Да у нас в школе презентация была по такой проге
    • Автор:

      gypsy
    • 6 лет назад
    • 0
  • Там название проги вот так выглядело
  • очепятался. исправил.
    • Автор:

      kameron
    • 6 лет назад
    • 0
  • Var a: integer;Beginwrite ('Введите число: ');Readln (a);If a mod 4=0 then writeln ('число ', a, ' делится на 4')Else writeln ('число ',a, ' не делится на 4');End.
  • Добавить свой ответ

Войти через Google

или

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

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

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