Найти является ли первая цифра двузначного числа четным

Найти является ли 1-ая цифра двузначного числа четным

Задать свой вопрос
Сергей Дидуров
О информатике паскаль
2 ответа

a - двухзначное число, b - 1-ая цифра двухзначного числа

b: = a div 10;

if (b mod 2 = 0) then writeln ('Цифра чётная');

if (b mod 2 = 1) then writeln ('Цифра нечётная');

var a:integer;

begin

readln(a);

if (a div 10) mod 2=0 then

writeln('Yes')

else

writeln('No');

end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

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

Войти на сайт