Это будет семеричная система счисления.
Код программы
var
k, i: integer;
begin
k := 4;
for i := 1 to 3 do
k := i + 2 * k;
Writeln(k);
end.
Вывод
43
Считалось, что архитектура компьютеров пятого поколения будет содержать два основных блока. Один из них - собственно компьютер, в котором связь с пользователем осуществляет блок, называемый "интеллектуальным интерфейсом". Задача интерфейса - понять текст, написанный на естественном языке или речь, и изложенное таким образом условие задачи перевести в работающую программу.Основные требования к компьютерам 5-го поколения: Создание развитого человеко-машинного интерфейса (распознавание речи, образов); Развитие логического программирования для создания баз знаний и систем искусственного интеллекта; Создание новых технологий в производстве вычислительной техники; Создание новых архитектур компьютеров и вычислительных комплексов.Новые технические возможности вычислительной техники должны были расширить круг решаемых задач и позволить перейти к задачам создания искусственного интеллекта. В качестве одной из необходимых для создания искусственного интеллекта составляющих являются базы знаний (базы данных) по различным направлениям науки и техники. Для создания и использования баз данных требуется высокое быстродействие вычислительной системы и большой объем памяти. Универсальные компьютеры способны производить высокоскоростные вычисления, но не пригодны для выполнения с высокой скоростью операций сравнения и сортировки больших объемов записей, хранящихся обычно на магнитных дисках. Для создания программ, обеспечивающих заполнение, обновление баз данных и работу с ними, были созданы специальные объектно ориентированные и логические языки программирования, обеспечивающие наибольшие возможности по сравнению с обычными процедурными языками. Структура этих языков требует перехода от традиционной фон-неймановской архитектуры компьютера к архитектурам, учитывающим требования задач создания искусственного интеллекта.<span>К классу суперкомпьютеров относят компьютеры, которые имеют максимальную на время их выпуска производительность, или так называемые компьтеры 5-го поколения.</span>
Как понял. Задаешь два вектора. И начинаешь сравнивать значения первого вектора, со значениями второго. Если какие то значения окажутся равными. то записать какой слот они занимают в первом векторе. После проверки всех чисел, удалить запомненные слоты в первом векторе
// PascalABC.NET 3.0, сборка 1088
var
s1,s2:string;
d:integer;
begin
Write('Первая строка: '); Readln(s1);
Write('Вторая строка: '); Readln(s2);
d:=Length(s1)-Length(s2);
if d>0 then Writeln('Первая строка длиннее на ',d)
else
if d<0 then Writeln('Вторая строка длиннее на ',-d)
else Writeln('Строки имеют равную длину')
end.
