составить программку которая определяет какая из цифр: 0, чётная, нечетная, больше

Составить программу которая определяет какая из цифр: 0, чётная, нечетная, больше 10, нажата на клавиатуре( на паскале)

Задать свой вопрос
Konopljuk Vladik
цифр больше либо одинаковых 10 не посещает... функция odd() Возращает True , если n нечетное, и False, если n четное
1 ответ
Var a,b:integer;
begin
writeln('Введите целое число: ');
readln(a);
b:= a mod 2;
if bgt;0 then 
writeln('Число нечётное') else 
writeln('Число чётное');
if agt;=10 then
writeln('Число gt;=10') else 
writeln('Число =lt;10');
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт