1. Составить программу нахождения значения функции у:

у=3х+1, если х>0, у=х-5, если х<0.

2. Составить программу решения квадратного уравнения. (Пояснение: все квадратные уравнения отличаются коэффициентами а, в, с, которые участвуют в нахождении корней уравнения, при этом надо помнить, чтобы квадратное уравнение имело корни должно выполняться определенное условие.

3. Составить программу, определяющую является ли треугольник равнобедренным, если известны его стороны.

Это очень опасно для цивилизации на данном этапе её развития.

Объяснение:

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

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

Основная опасность искусственного интеллекта - в его незашоренности и ясности мышления. Он сразу поймет, кто есть кто.

В научной фантастике эта опасность уже обсуждалась множество раз, и не думайте, что Илон Маск - глупец, раз он заявлял, что опасается развития искусственного интеллекта.

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

program raf105;

var a:array[1..3] of integer;

abc,i:integer;

begin

write('Введите число меньше тысячи: ');

readln(abc);

a[1]:=1000;

a[2]:=1000;

a[3]:=1000;

while abc<>0 do

begin

 i:= i+1;

 a[i]:= abc mod 10;

 abc:= (abc-a[i]) div 10;

end;

if (a[1]<>a[2]) and (a[1]<>a[3]) and (a[1]<>1000)

 then abc:= abc+1;

if (a[2]<>a[1]) and (a[2]<>a[3]) and (a[2]<>1000)

 then abc:= abc+1;

if (a[3]<>a[1]) and (a[3]<>a[2]) and (a[3]<>1000)

 then abc:= abc+1;

if abc=3 then abc:= abc-1;

writeln('Количество разных цифр: ',abc+1);

end.

Программа написана на языке PascalABC.NET