Предмет: Информатика,
автор: DemonArthur
вычислить Y=A^n по формуле Y=A*A*A*A...*A (всего n раз).Значение A и N задайте произвольно.(ПАСКАЛЬ)
Ответы
Автор ответа:
0
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.
Автор ответа:
0
Можно процесс ускорить чутка
Приложения:
Автор ответа:
0
спасибо))))
Похожие вопросы
Предмет: Русский язык,
автор: Аноним
Предмет: История,
автор: zhaneltoktagul83
Предмет: История,
автор: Dumbos10
Предмет: Алгебра,
автор: Аноним