Дано натуральное число N и цифра К. Составьте на Паскале программу, которая определяет. Есть ли в записи числа N цифра К.
Ответы
Ответ дал:
0
program NK;
var
K, N: integer;
begin
write('Число N: ');
readln(N);
write('Цифра К: ');
readln(K);
while (N <> 0) do
begin
if ((N mod 10) = K) then
begin
writeln('Есть');
halt;
end;
N := N div 10;
end;
writeln('Нет');
readln;
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
8 лет назад