М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Vasilyeva5
Vasilyeva5
25.08.2021 10:58 •  Другие предметы

Вопрос из разряда рассуждений о жизни. Если жажда власти и жестокость в людях будут развиваться со временем, есть ли вероятность того, что человеческий вид полностью истребит сам себя?

👇
Ответ:
nicsiberia
nicsiberia
25.08.2021

да, вероятность есть, потому что каждый будет стремится к власти, будут войны за власть. и не будет единого человека, к кторому все будут приклоняться

4,8(49 оценок)
Ответ:
marinakoch
marinakoch
25.08.2021

50/50

Объяснение:

Смотря с какого угла посмотреть. Если жестокость будет развиваться абсолютно во всех, то через несколько тысяч лет человечество вымрет попросту, так как не будет никакой коммуникации, все будут жить сами по себе и выживать, что не призведет до хороших последствий. Но если будут существовать люди, у которых есть здравый смысл и жестокость не затмит добро, то вероятнее всего такие люди и виживут, держась вместе.

(самая большая вероятность того, что люди попросту не доживут до этого, так как солнце утратит всю свою енергию, полезные ископаемые закончаться, как и невосстановимые источники)

4,8(84 оценок)
Открыть все ответы
Ответ:
nikitatutaev03
nikitatutaev03
25.08.2021
Если нужны программы на Паскале, то держи. Во втором, правда, не учитывается то, что числа могут быть равны. Если это сделать, то будет лишним палевом перед преподом, думаю)

№1

var A, B, C, sum, razn, proizv: integer; chastnoe: real;
label undf;
begin
undf: writeln('Введите А:');
readln(A);
writeln('Введите B:');
readln(B);
writeln('Введите C:');
readln(C);
sum := A + B + C; // находим сумму АВС
proizv := A * B * C; // находим произведение АВС
razn := A - B; // находим разность А и В
chastnoe := B / C; // находим частное В и С
writeln('Сумма А, В, С: ', sum);
writeln('Произведение А, В, С: ', proizv);
writeln('Разность А и В: ', razn);
writeln('Частное В и С: ', chastnoe);
end.

№2

var A, B, razn: integer;
begin
write('Введите А: ');
readln(A);
write('Введите B: ');
readln(B);
razn := abs( A - B );
if A < B then writeln('Первое число меньше второго на ', razn)
else writeln('Первое число больше второго на ', razn);
end.
4,5(58 оценок)
Ответ:
Rozo4ka1mr
Rozo4ka1mr
25.08.2021
Если нужны программы на Паскале, то держи. Во втором, правда, не учитывается то, что числа могут быть равны. Если это сделать, то будет лишним палевом перед преподом, думаю)

№1

var A, B, C, sum, razn, proizv: integer; chastnoe: real;
label undf;
begin
undf: writeln('Введите А:');
readln(A);
writeln('Введите B:');
readln(B);
writeln('Введите C:');
readln(C);
sum := A + B + C; // находим сумму АВС
proizv := A * B * C; // находим произведение АВС
razn := A - B; // находим разность А и В
chastnoe := B / C; // находим частное В и С
writeln('Сумма А, В, С: ', sum);
writeln('Произведение А, В, С: ', proizv);
writeln('Разность А и В: ', razn);
writeln('Частное В и С: ', chastnoe);
end.

№2

var A, B, razn: integer;
begin
write('Введите А: ');
readln(A);
write('Введите B: ');
readln(B);
razn := abs( A - B );
if A < B then writeln('Первое число меньше второго на ', razn)
else writeln('Первое число больше второго на ', razn);
end.
4,8(97 оценок)
Новые ответы от MOGZ: Другие предметы
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ