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

Question

Составьте программу получения изображения в котором в первой строке 1 звездочка во второй - 2 в третьей - 3.... В строке с номером m-m звёздочек program z2; var m, I, k: integer;prodecure pr (n:integer) ;var I : integer ;begin for I :=1 to n do write ('*') ;writeln ;end;Измените программу чтобы в первой строке было m звёздочек во второй на 1 меньше и тд РЕБЯТА ПОМОГИТЕ СРОЧНО! ​

Answer 1

Ответ:

procedure zv(x:integer);

var i:integer;

begin

for i:=1 to x do

write('*');

writeln;

end;

var n:integer;

begin

readln(n);

zv(n);

end.

Объяснение:

Процедура с именем zv