Aubor 26 ноября 2019 в 07:21
Вычислить Y=A^n по формуле Y=A*A*A*A...*A (всего n раз).Значение A и N задайте произвольно.(ПАСКАЛЬ)
Вычислить Y=A^n по формуле Y=A*A*A*A...*A (всего n раз).Значение A и N задайте произвольно.(ПАСКАЛЬ)
Можно процесс ускорить чутка
Var a, n, s, i: integer;
begin
writeln (Введите а);
readln (a);
writeln (Введите n);
readln (n);
s:= 1;
for i:= 1 to n do
s:= s*a;
writeln (s);
end.
begin
writeln (Введите а);
readln (a);
writeln (Введите n);
readln (n);
s:= 1;
for i:= 1 to n do
s:= s*a;
writeln (s);
end.
Компьютеры и вычисления
385
0
Для комментирования необходимо зарегистрироваться на сайте