Question

С помощью операторов цикла вывести на экран
55555
4444
333
22
1

Answer 1

var i,j:integer;
begin
for i:=5 downto 1 do
 begin
 for j:=1 to i do write(i);
 writeln;
 end;
end.

Результат:
55555
4444
333
22
1