Построить треугольник из символов на паскале 0000 000 00 0

данданн данданн    3   06.10.2019 22:00    0

Ответы
lyaman2005 lyaman2005  10.10.2020 00:37

var a:integer;

Begin

 write('Введите размер: '); readln(a);

 while (a > 0) do Begin

   for var i := 1 to a do

     write('0');

   writeln;

   a := a - 1;

 end;

End.

ПОКАЗАТЬ ОТВЕТЫ
кристина1814 кристина1814  10.10.2020 00:37

var i,j:integer;

begin

for i := 1 to 4 do

begin

for j:=i to 4 do write('0');

writeln

end

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика