Задание:
ВЫПОЛНИТЬ В ПАСКАЛЕ! Дано целое число N (> 0). С помощью операций деления нацело и взятия остатка от деления определить, имеется ли взаписи числа N цифра «2». Если имеется, то вывести True, если нет — вывести False.
Решение:
var a,a1: integer; check: boolean; begincheck: =false; readln (a); while (a<>0) dobegina1: =a mod 10; a: =a div 10; if (a1=2) then check: =True; end; writeln (check); end.
Знаете другой ответ?