Дано целое число x и натуральное n. составьте алгоритм вычисления xn. проверьте алгоритм трассировкой. напишите программу на паскале. через while do

evakazakova20 evakazakova20    2   16.09.2019 10:20    19

Ответы
ludamechta ludamechta  16.08.2020 16:58
Var
x, n, ans:integer;
begin
Readln(x, n);
while (n > 0) do
begin
ans := ans + x;
n:= n - 1;
end;
Writeln(ans);
end.

Дано целое число x и натуральное n. составьте алгоритм вычисления xn. проверьте алгоритм трассировко
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика