Pascal: var n,m:longint; f:boolean; begin write ('Decimal: '); readln(n); write ('Number: '); readln (m); f:=true; while (n<>0) do begin if ((n mod 10)=m) then begin f:=true; break; end; n:=n div 10; end; if f then writeln ('YES!') else writeln ('NO'); readln; end.
C++: #include <iostream> using namespace std;
int main() { int n,m; bool f = false; cout <<"Decimal: "; cin >>n; cout <<"Number: "; cin >>m; while (n!=0) { if ((n%10)==m) { f = true; break; } n/=10; } if (f) cout <<"YES!" <<endl; else cout <<"NO!" <<endl; return 0; }
Может быть непонятным, почему цунами высотой несколько метров оказалось катастрофическим, в то время, как волны той же (и даже значительно большей) высоты, возникшие во время шторма, к жертвам и разрушениям не приводят. Можно назвать несколько факторов, которые приводят к катастрофическим последствиям:
Высота волны у берега в случае цунами, вообще говоря, не является определяющим фактором. В зависимости от конфигурации дна возле берега, явление цунами может пройти вовсе без волны, в обычном понимании, а как серия стремительных приливов и отливов, что также может привести к жертвам и разрушениям. Во время шторма в движение приходит лишь поверхностный слой воды. Во время цунами — вся толща воды, от дна до поверхности. При этом на берег при цунами выплёскивается объём воды, в тысячи раз превышающий штормовые волны. Стоит также учесть тот факт, что длина гребня штормовых волн не превышает 100—200 метров, при этом у цунами длина гребня распространяется по всему побережью, а это не одна тысяча километров. Скорость волн цунами, даже у берега, превышает скорость ветровых волн. Кинетическая энергия у волн цунами также в тысячи раз больше. Цунами, как правило, порождает не одну, а несколько волн. Первая волна, не обязательно самая большая, смачивает поверхность, уменьшая сопротивление для последующих волн. При шторме волнение нарастает постепенно, люди обычно успевают отойти на безопасное расстояние до прихода больших волн. Цунами приходит внезапно. Разрушение от цунами может возрасти в гавани — там, где ветровые волны ослабляются, а следовательно, жилые постройки могут стоять у самого берега. Отсутствие у населения элементарных знаний о возможной опасности. Так, во время цунами 2004 года, когда море отступило от берега, многие местные жители оставались на берегу — из любопытства или из желания собрать не успевшую уйти рыбу. Кроме того, после первой волны многие возвращались в свои дома — оценить ущерб или пытаться найти близких, не зная о последующих волнах. Система оповещения о цунами есть не везде и срабатывает не всегда. Разрушение береговой инфраструктуры усугубляет бедствие, добавляя катастрофические техногенные и социальные факторы. Затопление низменностей, долин рек приводит к засолению почв.
Может быть непонятным, почему цунами высотой несколько метров оказалось катастрофическим, в то время, как волны той же (и даже значительно большей) высоты, возникшие во время шторма, к жертвам и разрушениям не приводят. Можно назвать несколько факторов, которые приводят к катастрофическим последствиям:
Высота волны у берега в случае цунами, вообще говоря, не является определяющим фактором. В зависимости от конфигурации дна возле берега, явление цунами может пройти вовсе без волны, в обычном понимании, а как серия стремительных приливов и отливов, что также может привести к жертвам и разрушениям. Во время шторма в движение приходит лишь поверхностный слой воды. Во время цунами — вся толща воды, от дна до поверхности. При этом на берег при цунами выплёскивается объём воды, в тысячи раз превышающий штормовые волны. Стоит также учесть тот факт, что длина гребня штормовых волн не превышает 100—200 метров, при этом у цунами длина гребня распространяется по всему побережью, а это не одна тысяча километров. Скорость волн цунами, даже у берега, превышает скорость ветровых волн. Кинетическая энергия у волн цунами также в тысячи раз больше. Цунами, как правило, порождает не одну, а несколько волн. Первая волна, не обязательно самая большая, смачивает поверхность, уменьшая сопротивление для последующих волн. При шторме волнение нарастает постепенно, люди обычно успевают отойти на безопасное расстояние до прихода больших волн. Цунами приходит внезапно. Разрушение от цунами может возрасти в гавани — там, где ветровые волны ослабляются, а следовательно, жилые постройки могут стоять у самого берега. Отсутствие у населения элементарных знаний о возможной опасности. Так, во время цунами 2004 года, когда море отступило от берега, многие местные жители оставались на берегу — из любопытства или из желания собрать не успевшую уйти рыбу. Кроме того, после первой волны многие возвращались в свои дома — оценить ущерб или пытаться найти близких, не зная о последующих волнах. Система оповещения о цунами есть не везде и срабатывает не всегда. Разрушение береговой инфраструктуры усугубляет бедствие, добавляя катастрофические техногенные и социальные факторы. Затопление низменностей, долин рек приводит к засолению почв.
var n,m:longint;
f:boolean;
begin
write ('Decimal: ');
readln(n);
write ('Number: ');
readln (m);
f:=true;
while (n<>0) do
begin
if ((n mod 10)=m) then
begin
f:=true;
break;
end;
n:=n div 10;
end;
if f then writeln ('YES!') else writeln ('NO');
readln;
end.
C++:
#include <iostream>
using namespace std;
int main()
{
int n,m;
bool f = false;
cout <<"Decimal: ";
cin >>n;
cout <<"Number: ";
cin >>m;
while (n!=0)
{
if ((n%10)==m)
{
f = true;
break;
}
n/=10;
}
if (f)
cout <<"YES!" <<endl;
else cout <<"NO!" <<endl;
return 0;
}