Написать программу на Паскале которая запрашивает трёхзначное число, затем с помощью функций Div mod разделяет число на цифры и проверяет имеются ли в введенном числе цифра "5". Если да, то печатает "имеется" иначе "не имеется

Question

Информатика

Енюта

22 декабря, 03:39

Написать программу на Паскале которая запрашивает трёхзначное число, затем с помощью функций Div mod разделяет число на цифры и проверяет имеются ли в введенном числе цифра "5". Если да, то печатает "имеется" иначе "не имеется

+5

Ответы (1)

Знаете ответ на вопрос?

Елизаветка · Answer 1

Var N, k, y: integer;

begin

write ('Введите число: ') ;

readln (N) ;

k : = 0;

repeat

y : = N mod 10;

if y = 5 then k : = k + 1;

N : = N div 10;

until N = 0;

if k 0 then writeln ('Имеется')

else writeln ('Не имеется')

end.