Вывести на экран числа в следующем виде:

19.02.2012, 13:32. **Показов** 6847. **Ответов** 2

Вывести на экран числа в следующем виде:
а)
1
22
333
4444
55555

б)
55555
6666
777
88
9

Заранее спасибо.

@SuPeR XaKer · 19.02.2012, 13:38

-I-

Pascal

Uses CRT;
Var i,j:byte;
begin
for i:=1 to 5 do
 begin
  for j:=1 to 5 do
    if j>=5-i+1 then write(i);
  writeln
 end;
end.

-II-

Pascal

Uses CRT;
Var i,j:byte;
begin
for i:=5 to 9 do
 begin
  for j:=5 to 9 do
    if j<=9-(i-4)+1 then write(i);
  writeln
 end;
end.

@Просто лис · 19.02.2012, 14:28

НЛО прилетело и кинуло этот код здесь...

Pascal

type
i=1..5;
var a,b:i;
begin
for a:=1 to 5 do
begin
for b:=1 to a do
write(a);
writeln;
end;
end.

-------------------------

Pascal

type
i=5..9;
var a,b:i;
begin
for a:=5 to 9 do
begin
for b:=5 to 13-a+1 do
write(a);
writeln;
end;
end.

syb34
		1
	Вывести на экран числа в следующем виде: 19.02.2012, 13:32. Показов 6847. Ответов 2 Метки нет (Все метки) Вывести на экран числа в следующем виде: а) 1 22 333 4444 55555 б) 55555 6666 777 88 9 Заранее спасибо.

	19.02.2012, 14:28

Решение