Язык Паскаль. Дано натуральное число n. Какое это число? Проверка четности, кратности, на что оканчивается число

Задача. Дано натуральное число n. Ответить на вопросы:

1. Число больше 10?
2. Число кратно 3?
3. Число четное?
4. Число оканчивается на 7?
5. Число оканчивается на 23?

Воспользуемся простыми условиями и применим оператор ветвления в полной форме.

Знаки сравнения

• > (больше)
• < (меньше)
• >= (больше либо равно)
• <= (меньше либо равно)
• = (равно)
• <> (не равно).

Чтобы узнать, кратно число какому-либо числу, воспользуемся операцией mod (деление с остатком). Например, если остаток от деления числа n на 2 равен 0, число кратно 2 (четно).

Программа решения задачи на языке Паскаль

Var n:integer;

begin

readln(n);

if n>10 then writeln('число больше 10') else writeln('число не больше 10');

if n mod 3=0 then writeln('число кратно 3') else writeln('число не кратно 3');

if n mod 2=0 then writeln('число четное') else writeln('число не четное');

if n mod 10=7 then writeln('число оканчивается на 7') else writeln('число не оканчивается на 7');

if n mod 100=23 then writeln('число оканчивается на 23') else writeln('число не оканчивается на 23');

end.

Задан проходной балл. Запрашиваются оценки абитуриента на трех экзаменах и сообщается о результате приема в институт. Читать

Определить, делителем каких целых чисел из А, В и С является целое число N. Читать

Дано трехзначное число. Определить, является ли сумма его цифр двузначным числом Читать

Является ли число двузначным Читать

Известен рост трех человек. Определить, одинаков ли их рост? Читать