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

Question

ВЫПОЛНИТЬ В ПАСКАЛЕ! Дано целое число N (> 0). С помощью операций деления нацело и взятия остатка от деления определить, имеется ли взаписи числа N цифра «2». Если имеется, то вывести True, если нет — вывести False.

Answer 1

48

leva99

14 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: