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

Question

Информатика

Суккунд

26 марта, 02:30

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

+3

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