ТутРешу.Ру

ВЫПОЛНИТЬ В ПАСКАЛЕ! Дано целое число…

Задание:

ВЫПОЛНИТЬ В ПАСКАЛЕ! Дано целое число 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.




Знаете другой ответ?

Отправить свой ответ