Введение.

Я заметил, что вопросы по решению базовых задач на языке PascalABC стали появляться все чаще. По этой причине теперь я буду публиковать самые востребованные варианты программ после каждой пройденной темы. И прикреплять уникальные изображения к исходникам уже не так необходимо. Сейчас мы рассмотрим решение задачи, в которой нужно вывести числа, содержащие определенную цифру или кратные ей.

Задача.

Поставлена задача — найти и вывести двузначные числа с цифрой N или числа, кратные этой цифре N. Число N вводится с клавиатуры через знак пробела. Решим данную задачу с помощью цикла FOR. Это решение считается несложным, но я добавил некоторые пояснения к каждой строке.

Код.

Var //Описание переменных
i,n: integer;
Begin //Начало программы
write(‘Введите n: ‘); //Диалог с пользователем
readln(n); //Считывание числа n
For i:=10 to 99 do //Цикл FOR, диапазон чисел от 10 до 99 включительно
If (i mod 10=n) or (i div 10=n) or (i mod n=0) then //Условие задания
write(i,’ ‘); //Вывод через пробел
End. //Конец программы.

Заключение.

Этот тип задач встречается достаточно часто, задание может иметь некоторую другую формулировку, но алгоритм действий остается тем же. Например, могут исследоваться не только двухзначные числа, но и числа с тремя, четырьмя знаками, тогда мы всего лишь дополняем условия в цикле FOR.