Lisp,Java,Python,Prolog . Но больше всего пишут в области ИИ на Python так как он очень быстрый и удобный. Также под него есть огромное кол-во библиотек под ИИ.
При использовании 16777216 цветов для хранения одного пикселя необходимо log(2)16777216 = 24 бита. (2^24 = 16777216)
Var
s,sd:string;
i,n,sum,d,err:integer;
begin
Writeln('Введите строку для суммирования');
Read(s);
sum:=0;
n:=Length(s);
if n>0 then begin
i:=2; sd:=s[1];
while i<=n do begin
if s[i]<>'+' then sd:=sd+s[i]
else begin
Val(sd,d,err);
sum:=sum+d;
sd:=''
end;
Inc(i);
end;
Val(sd,d,err);
sum:=sum+d
end;
Writeln('Сумма равна ',sum)
end.
<u><em>Тестовые примеры:</em></u>
Введите строку для суммирования
1+25+3
Сумма равна 29
Введите строку для суммирования
143+38+253+62
Сумма равна 496
var
i, b:integer;
begin
write('b = ');
readln(b);
for i := 10 to b do
writeln(i, ' * ', i, ' = ', i*i);
readln;
end.
//вторая задача
var
a, b, i:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
for i := a + 1 to b - 1 do
write(i, ' ');
readln;
end.
uses graphabc;
begin
//1
rectangle(200,100,450,250);
line(200,100,450,250);
line(200,100,325,30);
line(450,100,325,30);
end.
2.
uses graphabc;
begin
//1
rectangle(200,100,450,250);
line(200,100,325,30);
line(450,100,325,30);
end.