Информатика 5. Напишите программу, которая вводит трёхзначное число и десятичну?
Информатика
5. Напишите программу, которая вводит трёхзначное число и десятичну?? цифру. Определить, входит ли эта цифра в десятичную запись введённого числа.
Гость
Ответ(ы) на вопрос:
Гость //PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var
a,b,i: integer;
f:boolean;
begin
f:=false;
readln(a);
readln(b);
for i:=1 to 3 do begin
if a mod 10 = b then f :=true;
a:=a div 10;
end;
if f then writeln('входит')
else writeln('Не входит');
end.
Тестовое решение
для a=123 и b =3
123
3
входит
Для а = 123 и b = 5
123
5
Не входит
Не нашли ответ?
Похожие вопросы