program raf105;
var x,y,n,i: integer;
begin
write('n = ');
readln(n);
for i:=1 to n do
begin
x:= i;
y:= 4-x;
writeln(i:2,'. x=',x:2,' y=',y:2);
end;
end.
<h3><u>PascalABC 3.4.2</u></h3>
Центральный процессор часто называют мозгом компьютера, но
справедливо ли такое сравнение? Сказать, что процессор в точности
повторяет мозг, было бы неправдой, и всё же между ними и впрямь много
общего.
Оба построены донельзя сложно и искусно, и искать между ними сходства
и различия можно до бесконечности. Мы же попробуем уложиться в пять
итераций, сравнив строение мозга и процессора, память и «мысли» обоих,
дабы понять, так ли уж бесплодны попытки создания полупроводникового
двойника нашего мозга. В первом материале мы поговорим об элементарной
структуре и самых основных принципах работы того и другого, но начнём,
как водится, издалека…
Программа находится в фотографии
Var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do a[i]:=i;
for i:=1 to n do write(a[i],' ');
writeln;
<span>end.</span>