Решить на языке паскаль: Верно ли, что в числе есть цифра 5

Question

Информатика

Валерий

20 апреля, 20:16

Решить на языке паскаль: Верно ли, что в числе есть цифра 5

+4

Ответы (1)

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

Галла · Answer 1

var a, n:integer;

begin

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

readln (n) ;

repeat

a:=n mod 10;

n:=n div 10;

until (n=0) or (a=5) ;

if a=5 then write ('В этом числе есть цифра 5') else write ('В этом числе нет цифры пять')

end.