Сегодня в мире существует очень много технологий, которые невозможно было представить, скажем, десять-пятнадцать лет назад. Это всевозможные гаджеты в медицине и во всех отраслях науки, в бизнесе, строительстве и во многом другом, смартфоны, ультрабуки, планшеты и многое другое. На их перечисление уйдут многие месяцы, если не годы.
Ещё каких-то десять-двадцать лет назад людей погибало намного больше от различных болезней, но сейчас, во многом благодаря новому медицинскому оборудованию, многие из этих болезней стали излечимы. Эти новшества повсюду окружают нас. Например, дома – компьютеры, телефоны, телевизоры, стиральные машины, микроволновые печи, холодильники и многое другое. В бизнесе эти новшества просто незаменимы. Практически, каждые два-три месяца, такие всемирно известные корпорации как Samsung, Apple, Nokia, Microsoft, Sony и многие другие, выпускают новые, все более совершенные и многофункциональные продукты. Сегодня в магазинах электроники настолько большой выбор, что не знаешь, какой именно телефон, например, выбрать.
Также, как у монеты есть обратная сторона, у этих новшеств есть большие минусы. К этим минусам относится и то, что при длительной работе, скажем за компьютером, сильно портится зрение, люди меньше общаются между собой вживую, заменяя это звонками по телефону, переписками или видеозвонками.
Но, несмотря на все минусы, мы не можем представить свою жизнь без этих технологий. Например, что бы вы делали в жаркий летний день без холодильника? Без стиральной машины? Мы настолько привыкли ко всем этим предметам, что кажется, что они всегда были, есть и будут окружать нас всегда.
Program d_and_e;
Var
a,b,sum_d,sum_e:integer;
Begin
WriteLn('введите первое число: ');
ReadLn(a);
WriteLn('введите второеое число: ');
ReadLn(b);
sum_d:=(a div 10) + (b div 10);
sum_e:=(a mod 10) + (b mod 10);
WriteLn('сумма десятков чисел: ', sum_d);
WriteLn('сумма единиц чисел: ', sum_e);
end.
Вторая программа.
Program d_and_e;
Var
a,b,mult_d1_e2,mult_e1_d2:integer;
Begin
WriteLn('введите первое число: ');
ReadLn(a);
WriteLn('введите второе число: ');
ReadLn(b);
mult_d1_e2:=(a div 10) * (b mod 10);
mult_e1_d2:=(a mod 10) * (b div 10);
WriteLn('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2);
WriteLn('произведение единиц 1-го и десятков 2-го числа: ', mult_e1_d2);
end.
Третья программа.
Program d_and_e;
Var
a,b,mult_d1_e2,sum_e1_d2:integer;
Begin
WriteLn('введите первое число: ');
ReadLn(a);
WriteLn('введите второе число: ');
ReadLn(b);
mult_d1_e2:=(a div 10) * (b mod 10);
sum_e1_d2:=(a mod 10) + (b div 10);
WriteLn('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2);
WriteLn('сумма единиц 1-го и десятков 2-го числа: ', sum_e1_d2);
end.