Составьте программу получения изображения в котором в первой строке 1 звездочка во второй - 2 в третьей - в строке с номером 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 меньше и тд ! ​

ответ:

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

program xxx;

  var a, b, s : real;

              r, p, d : real;

begin

    write ('введите певрое число- ');

    readln (a);

    write ('введите второе число- ');

    readln (b);

    s: = a+ b;

    r : = a - b;

    p : = a* b;

    d : = a/b;

    writeln ('сумма =', s);

    writeln ('разность =', r);

    writeln ('произведение =', p);

    writeln ('частное = ', d);

    readln

end.

program zadacha6; var a,b: real; begin readln(a,b); if a> b then writeln (a) else writeln (b); end.

не? я не уверен