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

Question

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

shmakovaangeli · Answer

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.