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