Дано целое число. Проверить: является ли данное число отрицательным двузначным числом...
Дано целое число. Проверить: является ли данное число отрицательным двузначным числом кратным десяти. В PascalABC

Предыдущий
вопрос Следующий
вопрос

Пример решения в PascalABC:

program CheckNumber;
var
num: integer;
begin
write('Введите целое число: ');
readln(num);
if (num < 0) and (num >= -99) and (num mod 10 = 0) then
writeln('Данное число является отрицательным двузначным числом и кратно 10')
else
writeln('Данное число не соответствует условиям');
end.

В этом коде мы сначала запрашиваем у пользователя целое число, затем проверяем, является ли оно отрицательным, двузначным и кратным 10. Если все условия выполняются, выводим сообщение о соответствии условиям, иначе выводим сообщение о несоответствии.