Паскаль: Дано натуральное число n. Необходимо определить, есть ли в нём цифра 3.

Question

Информатика

Арбухан

22 октября, 18:15

Паскаль: Дано натуральное число n. Необходимо определить, есть ли в нём цифра 3.

+4

Ответы (1)

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

Нетёс · Answer 1

Program three;

var n, k, i:integer;

begin

randomize;

n:=random (32768) ;

k:=n;

repeat

i:=n mod 10;

n:=n div 10

until (n:=0) or (i:=3) ;

if i=3 then

write ('Число', k ', содержит цифру 3')

else

write ('Число', k ', не содержит цифру 3')

end.