Составьте на Pascal программу возведения в n-ую степень целого числа X
Составьте на Pascal программу возведения в n-ую степень целого числа X
Гость
Ответ(ы) на вопрос:
Гостьvar i,a,c,b:integer;
begin
c:=1;
writeln('Введите число');
readln(a);
writeln('Введите степень');
readln(b);
for i:=1 to b do
c:=a*c;
writeln (a, ' В сепени ',b,' =',c);
end.
Не нашли ответ?
Похожие вопросы