Как вывести символы в такой последовательности - вопрос №8255590 от QbQbQb 27.12.2021 22:34

Question

Информатика: Как вывести символы в такой последовательности в паскале, используя циклы? * ** ***ooo oo o

QbQbQb · Answer

USES crt;
VAR a,b,n1,n2,i:integer;
begin
n1:=1;
n2:=5;
FOR i:=1 to 5 do
   begin
FOR a:=1 to n1 do WRITE ('*');
   FOR b:=n2 downto 1 do WRITE ('o');
WRITELN;
   n1:=n1+1;
n2:=n2-1;
end;
END.