с информатикой, мне надо сегодня сдать последний раз но никто мне не с информатикой​

Последующие десять лет проект «компьютеров пятого поколения» стал испытывать ряд трудностей разного типа.

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

Другая проблема возникла с производительностью процессоров. Оказалось, что технологии 80-х годов быстро перескочили те барьеры, которые перед началом проекта считались «очевидными» и непреодолимыми. А запараллеливание многих процессоров не вызывало ожидаемого резкого скачка производительности. Получилось так, что рабочие станции, созданные в рамках проекта, успешно достигли и даже превзошли требуемые мощности, но к этому времени появились коммерческие компьютеры, которые были ещё мощнее.

Паскаль.

 

Немного не понятно: от 1 до 10  это относится только к нечетным числам или ко всем? Ну напишу программу которая просто все числа вычисляет, если сама не сможешь поставить условие ограничения, то сообщи точное условие задачи и напиши мне в личку

 

program jjj;

var a: array [1..10] of integer; i,summa,proizv:integer;

begin

for i:=1 to 10 do begin

   Writeln('напишите элемент массива номер ',i); read(a[i]);

                        end;

For i:=1 to 10 do begin

                              if a[i] mod 2=0 then summa:=summa+a[i] else

                                                       proizv:=proizv*a[i];

                         end;

Writeln(summa,'   ',proizv); readln;

end.

7

2

мотор

торт

Торт

Объяснение:

writeln(length(s)) - вывод количества символов в строке

writeln(pos('о',s)) - вывод первой позиции символа 'о' в строке s

delete(s,3,2) - удаление в строке s 2-х символов начиная с символа под номером 3

writeln(s) - вывод получившейся строки s

t:=copy(s, 3, 3) - копирование в строку t 3-х символов строки s начиная с 3 символа (тор)

insert ('т',t,4) - вставка символа 'т' в строку t на позицию 4

writeln (t) - вывод получившейся строки t

t[1]:=UpCase(t[1]) - замена первого символа строки t на заглавный

writeln (t) - вывод получившейся строки t