• почему программа(паскаль) не выполняет первое условие if?
    program tn;
    var a: integer;
    begin
    writeln ('Введи число');
    read(a);
    if ((a>=1000)and (a<100))then writeln ('Ошибка');
    if (((a mod 10) + ((a div 10) mod 10) + a div 100 ) mod 2 = 0) then writeln ('Сумма цифр данного трехзначного числа-четное число')else writeln('Сумма-число нечетное');
    end.

Ответы 4

  • хорошо, а как тогда проверить является ли a трехзначным числом?
  • поставить or&
    • Автор:

      zionmunoz
    • 5 лет назад
    • 0
  • теперь он пишет ошибку и выполняет следующий if
    • Автор:

      tiger9c8i
    • 5 лет назад
    • 0
  • Т. к. а не может быть одновременно быть больше 1000 и меньше 100, никогда не выйдет 'Ошибка'
    • Автор:

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

Войти через Google

или

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

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

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