В программу вводятся 2 значения: любое семизначное число и любая цифра. Если цифра есть в...

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\";

ПЕР
число, цифра: ЦЕЛ;

УКАЗ
число := Приём.Число(); Вывод.Цепь("^");
цифра := Приём.Число(); Вывод.Цепь("^");
КОЛЬЦО
ПОКА число > 0 ВЫП
ЕСЛИ число ОСТАТОК 10 = цифра ТО
Вывод.Цепь("ДА");
ВЫХОД
КОН
КОН;
Вывод.Цепь("НЕТ");
ВЫХОД
КОН

КОН Задание.