Код программы

procedure F(n: integer);
begin
    if n > 0 then
    begin
        writeln('*');
        F(n - 1);
        F(n div 3)
    end
end;

begin
    f(6);
end.

вывод
*
*
*
*
*
*
*
*
*
*
*

0 0

4 года назад

Відгадай загадку і запиши відповідь Я білий, справа неважкаМене зробити з молокаА прочитаеш навпакиЗі мною зліпиш пиріжки Відпов

matasa [667]

Сир_------+--+++---------

0 0

4 года назад

Прочитать ещё 2 ответа

Написать программу в паскале которая рисует звездочки на весь экран вот так: * ** *** **** ****** ******* И так далее до конца э

Екатерина Мел [26]

Var n,k:integer;
begin
k:=0;
while k>=0 do
begin
k:= k+1;
for n:=1 to k do
begin
write('*');
end;
writeln;
end;
<span>end.</span>

0 0

4 года назад

Шрифт без засечек называется ​

Шрифт без засечек называется