• Написать программу в паскале
    Проверить является ли введенное число четным

Ответы 2

  • Program cht; //Название программыvar a: integer; //Описание переменных Begin //Начало программы   Writeln ('Введите число'); //Диалог с пользователем   Readln (a); //Считывание числа   if a mod 2 = 0 then //Проверка на чётность writeln ('Это число чётное') //Вывод, если чётное   else //Иначе   writeln ('Число нечётно'); //Вывод на нечётное end. //Конец программы
    • Автор:

      carly7iaq
    • 5 лет назад
    • 0
  • Program p_1; Uses Crt;var n, pr: integer;beginwrite('Введите число: ');readln(n);if n mod 2=0 thenwriteln('Число четное')else writeln('Число нечетное');readln;end.
  • Добавить свой ответ

Войти через Google

или

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

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

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