• Написать программу в ПАСКАЛЕ
    Пользователь вводит число с клавиатуры. Если оно четное, вывести "Четное", если нечетное, вывести "Нечетное". Если меньше 1, вывести "число неверное, попробуйте ещё раз"

Ответы 1

  • Program Z1;uses crt;var a,i:integer;beginfor i:=1 to 5 do {можно вводить 5 чисел подряд}beginwrite('Vvedite chislo -> ');readln(a);if a<1 then writeln('Ne verno, poprobui eshe raz') elseif a mod 2=0 then writeln('-> Chetnoe') else writeln('-> Nechetnoe');end;readln;end.
    answer img
    • Автор:

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

Войти через Google

или

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

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

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