В Паскале напечатать числа в виде следующей таблицы0 6 5 4 3 2 1 0 5 4 3 22 1 0 4 3 23 2 1 0 3 24 3 2 1 0 2
В Паскале
напечатать числа в виде следующей таблицы
0 6 5 4 3 2
1 0 5 4 3 2
2 1 0 4 3 2
3 2 1 0 3 2
4 3 2 1 0 2
Гость
Ответ(ы) на вопрос:
Гостьvar k, n, x, y, i: integer;
begin
k := 1;
n := 100000;
y := 65432;
for i := 0 to 4 do
begin
x := k * i + x;
k := k * 10;
y := y mod n;
n := n div 10;
writeln(x:1, ' ':8 - i, y)
end
end.
Не нашли ответ?
Похожие вопросы