введите четырехзначное число и проверmnt есть ли в нем цифра 7

Question

Информатика

Ильина

25 февраля, 07:48

введите четырехзначное число и проверmnt есть ли в нем цифра 7

+4

Ответы (1)

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

Леонт · Answer 1

Var

n, x:integer;

s:string;

begin

s:='Нет';

readln (n) ;

while n>0 do

begin

x:=n mod 10;

if x=7 then s:='Да';

n:=n div 10;

end;

writeln (s) ;

end.