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

Question

Информатика

Грета

1 марта, 22:52

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

+2

Ответы (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.