Дано четырёхзначное число, определить:

1. Входит ли в него цифра 4.

Pascal:

var n:integer;

f:boolean;

begin

f:=false;

repeat

write ('N = ') ;

readln (n) ;

until (n>=1000) and (n<=9999) ;

while (not f) and (n0) do

begin

if n mod 10 = 4 then f:=true;

n:=n div 10;

end;

if f then writeln ('YES') else writeln ('NO') ;

end.

C++:

#include

using namespace std;

int main ()

{

int n;

bool f = false;

while (n9999)

{

cout <<"N = ";

cin >>n;

}

while (! f && n!=0)

{

if (n%10==4)

f = true;

}

if (f)

cout <<"YES" <
else cout <<"NO" <
return 0;

}