var
i, j: integer;
begin
for i:= 1 to 99 do
for j:= i +1 to 100 do
if i*i*i = j*j then writeln(i,' ',j);
end.
Голова - главный носитель информации. Так же Ваш ДНК носитель информации, в Вашей крови есть информация.. Она есть везде!
А если вы про то чем они пользовались - то это АБАК (счётная доска)
системы исчисления от 7 до 16
Var i, n, j: integer;
begin
write('Введите n ');
readln(n);
if (n>=1) and (n<=100) then
for i:=1 to n do
begin
for j:=1 to i do
write('*');
writeln;
end;
<span>end.</span>
<u>Вспомогательный алгоритм:</u>
использовать Чертежник
алг
нач
опустить перо
сместиться на вектор(0,3)
сместиться на вектор(4,0)
сместиться на вектор(0,-3)
сместиться на вектор(-4,0)
поднять перо
сместиться на вектор(1,1)
опустить перо
сместиться на вектор(0,1)
сместиться на вектор(2,0)
сместиться на вектор(0,-1)
сместиться на вектор(-2,0)
поднять перо
сместиться на вектор (-1,2)
опустить перо
сместиться на вектор(2,2)
сместиться на вектор(2,-2)
<span>кон
<u>Основной алгоритм:</u>
</span>использовать Чертежник
алг
нач
нц 5 раз
опустить перо
сместиться на вектор(0,3)
сместиться на вектор(4,0)
сместиться на вектор(0,-3)
сместиться на вектор(-4,0)
поднять перо
сместиться на вектор(1,1)
опустить перо
сместиться на вектор(0,1)
сместиться на вектор(2,0)
сместиться на вектор(0,-1)
сместиться на вектор(-2,0)
поднять перо
сместиться на вектор (-1,2)
опустить перо
сместиться на вектор(2,2)
сместиться на вектор(2,-2)
поднять перо
сместиться на вектор(4,-3)
кц
<span>кон</span>
