for15 pascal
Дано вещественное число A и целое число N (> 0). Вывести A в степени N: An = A•A•...•A (числа A перемножаются N раз)
И ещё FOR16 если найдете плз
Отмечу как лучший,если решите полностью for15 и for16
Пример решения:
Uses PT4;
bar a:real; k:integer;
Begin
Task('for5');
Read(a);
for k:=1 to 10 do
Write (a*0,1*k)
End.
Дано вещественное число A и целое число N (> 0). Вывести A в степени N: An = A•A•...•A (числа A перемножаются N раз)
И ещё FOR16 если найдете плз
Отмечу как лучший,если решите полностью for15 и for16
Пример решения:
Uses PT4;
bar a:real; k:integer;
Begin
Task('for5');
Read(a);
for k:=1 to 10 do
Write (a*0,1*k)
End.
More Questions From This User See All
Answers & Comments
program fofgogjoj;
var
n,i : integer;
a,p : real;
begin
Writeln('Введите число.');
Readln(a);
Writeln('Введите степень');
Readln(n);
p:=1;
for i:=1 to n do
begin
p:=p*a;
end;
if a<0 then
p:=1/p;
Writeln(p :6:3);
readln;
end.
FOR16
program fofgogjoj;
var
i, n: integer;
a, p: real;
begin
Writeln('Введите число:');
Write(' a = ');
Readln(a);
Writeln('Введите показатель степени (n > 0):');
Write(' N = ');
Readln(N);
Writeln('Все степени числа ', a, ' от 1 до ', n, ':');
p:= 1;
for i:=1 to n do
begin
p:= p*a;
Writeln(' ', a, ' в степени ', i, ': ', p:0:2)
end
end.