Сегодня в мире существует очень много технологий, которые невозможно было представить, скажем, десять-пятнадцать лет назад. Это всевозможные гаджеты в медицине и во всех отраслях науки, в бизнесе, строительстве и во многом другом, смартфоны, ультрабуки, планшеты и многое другое. На их перечисление уйдут многие месяцы, если не годы.
Ещё каких-то десять-двадцать лет назад людей погибало намного больше от различных болезней, но сейчас, во многом благодаря новому медицинскому оборудованию, многие из этих болезней стали излечимы. Эти новшества повсюду окружают нас. Например, дома – компьютеры, телефоны, телевизоры, стиральные машины, микроволновые печи, холодильники и многое другое. В бизнесе эти новшества просто незаменимы. Практически, каждые два-три месяца, такие всемирно известные корпорации как Samsung, Apple, Nokia, Microsoft, Sony и многие другие, выпускают новые, все более совершенные и многофункциональные продукты. Сегодня в магазинах электроники настолько большой выбор, что не знаешь, какой именно телефон, например, выбрать.
Также, как у монеты есть обратная сторона, у этих новшеств есть большие минусы. К этим минусам относится и то, что при длительной работе, скажем за компьютером, сильно портится зрение, люди меньше общаются между собой вживую, заменяя это звонками по телефону, переписками или видеозвонками.
Но, несмотря на все минусы, мы не можем представить свою жизнь без этих технологий. Например, что бы вы делали в жаркий летний день без холодильника? Без стиральной машины? Мы настолько привыкли ко всем этим предметам, что кажется, что они всегда были, есть и будут окружать нас всегда.
1) var a,b,sum : integer; begin Readln(a, b); if (a mod b = 0) then begin while a > 0 do begin sum:= sum + (a mod 10); a:= a div 10; end; if sum > b then begin Writeln('Верно'); halt; end; end; Writeln('Неверно'); end.
Пример: 1234 2 Верно
2) var i: integer; begin For i:= 100 to 999 do if (i*i)mod 1000 = i then Write(i, ' '); end.
Результат: 376 625
3) var i,n : integer;
function Simple(n: Longint): boolean; var i: Longint; begin for i := 2 to Round(Sqrt(n)) do if n mod i = 0 then break; Simple := n mod i <> 0; end;
begin Read(n); For i:= 1 to Round(Sqrt(n)) do if n mod i = 0 then if (Simple(i))and(Simple(n div i)) then begin Writeln('YES'); halt; end; Writeln('NO'); end.
Сегодня в мире существует очень много технологий, которые невозможно было представить, скажем, десять-пятнадцать лет назад. Это всевозможные гаджеты в медицине и во всех отраслях науки, в бизнесе, строительстве и во многом другом, смартфоны, ультрабуки, планшеты и многое другое. На их перечисление уйдут многие месяцы, если не годы.
Ещё каких-то десять-двадцать лет назад людей погибало намного больше от различных болезней, но сейчас, во многом благодаря новому медицинскому оборудованию, многие из этих болезней стали излечимы. Эти новшества повсюду окружают нас. Например, дома – компьютеры, телефоны, телевизоры, стиральные машины, микроволновые печи, холодильники и многое другое. В бизнесе эти новшества просто незаменимы. Практически, каждые два-три месяца, такие всемирно известные корпорации как Samsung, Apple, Nokia, Microsoft, Sony и многие другие, выпускают новые, все более совершенные и многофункциональные продукты. Сегодня в магазинах электроники настолько большой выбор, что не знаешь, какой именно телефон, например, выбрать.
Также, как у монеты есть обратная сторона, у этих новшеств есть большие минусы. К этим минусам относится и то, что при длительной работе, скажем за компьютером, сильно портится зрение, люди меньше общаются между собой вживую, заменяя это звонками по телефону, переписками или видеозвонками.
Но, несмотря на все минусы, мы не можем представить свою жизнь без этих технологий. Например, что бы вы делали в жаркий летний день без холодильника? Без стиральной машины? Мы настолько привыкли ко всем этим предметам, что кажется, что они всегда были, есть и будут окружать нас всегда.