Напечатать числа в виде таблицы, используя только циклы

@lokofanat · Регистрация: 15.11.2012

Напечатать числа в виде таблицы, используя только циклы (массивы и строки не применять):
1
2 3
4 5 6
0 0 0 0
6 5 4
3 2
1

@Puporev · 04.06.2013, 16:35

Pascal

uses crt;
const nmax=11;
var n,i,j,k:byte;
begin
clrscr;
repeat
write('Введите нечетное число от 1 до ',nmax,' n=');
readln(n);
until(n in [1..nmax])and odd(n);
k:=0;
for i:=1 to n do
 begin
  for j:=1 to i do
   begin
    k:=k+1;
    write(k:3)
   end;
  writeln
 end;
for i:=1 to n+1 do
write(0:3);
writeln;
for i:=1 to n do
 begin
  for j:=1 to n-i+1 do
   begin
    write(k:3);
    k:=k-1
   end;
  writeln
 end;
readln
end.

@lokofanat 0 / 0 / 0 Регистрация: 15.11.2012 Сообщений: 28
		1
	Напечатать числа в виде таблицы, используя только циклы 04.06.2013, 15:59. Просмотров 1057. Ответов 1 Метки нет (Все метки) Напечатать числа в виде таблицы, используя только циклы (массивы и строки не применять): 1 2 3 4 5 6 0 0 0 0 6 5 4 3 2 1 0

Опции темы

Напечатать числа в виде таблицы, используя только циклы

Решение