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

Question

Информатика

Валюня

7 августа, 14:08

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

+5

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