Question

Написать программу на Паскале 15 вариант
Через while, repeat, until
И написать блок схему по коду
Заранее спасибо

Answer 1

Program a2;

var n, m, i, j, ch, sr: integer;  

begin

 readln(m, n);

 for i := 1 to n do

   begin

     ch := i;

     for j := 1 to m-1 do

       ch := ch * i;

     sr := sr + ch;

   end;

 writeln(sr);

end.