Вывести числа на экран в виде таблицы

@stenli · Регистрация: 09.06.2011

Author24 — интернет-сервис помощи студентам

2 2 2 2 2
3 4 5 6 7
2 2 2 2
2 3 4 5
2 2 2
1 2 3
2 2
0 1
2
-1
вот в виде такой таблицы нужно
заранее благодарю

@Daemon025 · 09.06.2011, 22:35

Pascal

    uses crt;
    var i,j,kk,in1,in2:integer;
begin
  kk:=5;
  in1:=3;
  in2:=7;
  
  while (in1 >= -1) do
  begin
    for j:=1 to kk do
        write(2,' ');
    writeln;
    for i:=in1 to in2 do
        write(i,' ');
    writeln;
    dec(in1);dec(in2,2);dec(kk);
  end;
  Readln;
end.

@stenli 0 / 0 / 0 Регистрация: 09.06.2011 Сообщений: 11
		1
	Вывести числа на экран в виде таблицы 09.06.2011, 22:19. Показов 2027. Ответов 1 Метки нет (Все метки) 2 2 2 2 2 3 4 5 6 7 2 2 2 2 2 3 4 5 2 2 2 1 2 3 2 2 0 1 2 -1 вот в виде такой таблицы нужно заранее благодарю 0

	09.06.2011, 22:35

Вывести числа на экран в виде таблицы

Решение