Принципы здорового и осознанного образа жизни распространяются как новая религия планетарного масштаба — им учат в школах и за их соблюдением пристально следит общество.Активно распространяется интернет всего — к нему подключается все больше устройств, производство становится безлюдным, концепция Индустрии 4.0 доминирует не только в развитых, но и во многих развивающихся странах.Яркая черта периода. Каждый третий хотя бы раз задумывается о биохакинге — попытке «взломать» генетически заданный уровень здоровья и продолжительность жизни.Маловероятное событие (джокер). Наступает «инновационная зима» — самые масштабные инвестиции в передовые научные разработки не оправдаются. Результаты пока далеки от обещанных фундаментальных прорывов — начиная от искусственного интеллекта и заканчивая медициной, не говоря уже о скорости их распространения в сложных многоукладных экономиках.
2-ое задание:
#include <iostream>
int main() {
int number;
std::cout << "Введите число: " << std::endl;
std::cin >> number;
if (number > 0)
std::cout << "Положительное" <<std::endl;
else if (number < 0)
std::cout << "Отрицательное" << std::endl;
else
std::cout << "Ноль" << std::endl;
return 0;
}
1-ое задание:
#include <iostream>
int main() {
double dollars, grivnas;
std::cout << "Введите кол-во долларов: " << std::endl;
std::cin >> dollars;
grivnas = dollars * 28.3;
std::cout << dollars << " доллар-(а, ов) в гривнах " << grivnas << std::endl;
return 0;
}
Объяснение:
Внимание! Если программа не работает, обновите версию!
begin
var n:=36;
var a:=ArrRandom(n,-50,50); a.Println;
var n4:=n div 4;
var (s1,s2):=a.Select((v,i)->(v,i)).TakeLast(n4).Where(t->t[0]<>0)
.Slice(1,2).OrderByDescending(t->1/t[0]).UnZipTuple;
foreach var t in s1.ZipTuple(s2.Sorted) do a[t[1]]:=t[0];
a.Println
end.