Ответы
Ответ дал:
1
Ответ:
var x, n, i, s:integer;
begin
readln(x, n);
s:=1;
i:=0;
while i < n do begin
s:=s*x;
i:=i+1;
end;
writeln(s);
end.
Приложения:
qasimovrauf3:
это точный ответ?
Да
Если хочешь проверь ровнее нарисовать блок схему (у меня немного криво нарисована так как я с "золотыми руками"). А программа работает идеально, ничего переделывать не надо
проверь -> просто*
Спасибо большое
Похожие вопросы
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад