компьютер несет негативное воздействие на здоровья человека.
в первую очередь - на зрение. при высокой яркости и близким расположением большого монитора глаза сильно портятся из-за чего зрение может уйти в минус или может начать развиваться близорукость.
следующее - осанка. мало людей, которые пользуются компьютером, следят за осанкой.
и не мало важное - человек, много проводящий времени за компьютером вытесняется с социума и отвыкает от общения с людьми. так же мало активности, что может привести к многочисленным заболеваниям.
гипотеза: существует мнение, что компьютер вытесняет с жизни людей живое общение.
как уберечь здоровье:
монитор компьютера должен быть на расстоянии 40-55 см от лица. желательно пользоваться компьютером не более 40 минут, так же делать перерывы 5-15 минут. следить за осанкой. меньше уделять времени компьютеру и больше прогулкам, спорту, общению.
компьютер несет негативное воздействие на здоровья человека.
в первую очередь - на зрение. при высокой яркости и близким расположением большого монитора глаза сильно портятся из-за чего зрение может уйти в минус или может начать развиваться близорукость.
следующее - осанка. мало людей, которые пользуются компьютером, следят за осанкой.
и не мало важное - человек, много проводящий времени за компьютером вытесняется с социума и отвыкает от общения с людьми. так же мало активности, что может привести к многочисленным заболеваниям.
гипотеза: существует мнение, что компьютер вытесняет с жизни людей живое общение.
как уберечь здоровье:
монитор компьютера должен быть на расстоянии 40-55 см от лица. желательно пользоваться компьютером не более 40 минут, так же делать перерывы 5-15 минут. следить за осанкой. меньше уделять времени компьютеру и больше прогулкам, спорту, общению.
var
a,b:string;
i:integer;
begin
readln(a);
readln(b);
For i:=1 to Length(a) do
begin
if (a[i]='3') then
Begin
Delete(a,i,1);
InSert('e',a,i);
End;
if (a[i]='0') then
Begin
Delete(a,i,1);
InSert('o',a,i);
End;
if (a[i]='1') then
Begin
Delete(a,i,1);
InSert('i',a,i);
End;
if (a[i]='7') then
Begin
Delete(a,i,1);
InSert('t',a,i);
End;
if (a[i]='4') then
Begin
Delete(a,i,1);
InSert('a',a,i);
End;
if (a[i]='5') then
Begin
Delete(a,i,1);
InSert('s',a,i);
End;
end;
if b in a then
writeln('YES')
else
writeln('NO')
end.