В Паскале напечатать числа в виде следующей таблицы0        

В Паскале
напечатать числа в виде последующей таблицы
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

Задать свой вопрос
1 ответ

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.
Санек Лобас
а почему n= 100000? И можешь немножко объяснить решение?
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт