Question

13 задание. Составить программу в паскале и блок схему. Программу сделать по образцу на первом фото

Answer 1

//PascalABC.NET v3.3 1633

begin

 var N:=ReadInteger('Введите N: ');

 var spaces:='';

 if N > 0 then

   for var i:=n downto 1 do

   begin

     writeln(spaces+'*'*i);

     spaces+=' '*(i-1);

   end;

end.

Answer 2

Это вроде как другая программа получилась..а нужна по образцу на второй фотке

Answer 3

Я не очень понимаю, как можно сделать программу, которая выполняет одно, по образцу программы, которая делает совсем другое.

Answer 4

Вот и у меня такой же вопрос. Все притензии к информатику . Спасибо за помощь