Решаем задачи Абрамян на Паскале. For16

For16. Дано вещественное число $$A$$ и целое число $$N$$ ($$> 0$$). Используя один цикл, вывести все целые степени числа $$A$$ от $$1$$ до $$N$$.

Решение:

program For16;
var
  A,Rez:Real;
  N, i :Integer;
begin
  Write('Введите A: ');
  Readln(A);
  Write('Введите N: ');
  Readln(N);
  Rez:=1;
  For i:=1  to N do
   begin
    Rez:=Rez*A;
    Writeln(Rez);
   end;
end.

program For16;

var

A,Rez:Real;

N, i :Integer;

begin

Write('Введите A: ');

Readln(A);

Write('Введите N: ');

Readln(N);

Rez:=1;

For i:=1 to N do

begin

Rez:=Rez*A;

Writeln(Rez);

end;

end.

Другие задачи из раздела For можно посмотреть здесь.

Комментарии 1

program For16;//pabc.net

//uses PT4;

begin
//  Task('For16');
  var A := ReadReal();
  var N := ReadInteger();
  var Res := 1.0;
  SeqFill(N, A).ForEach(x -> begin Res *= x; Print(Res) end)
end.

program For16;//pabc.net

//uses PT4;

begin

// Task('For16');

var A := ReadReal();

var N := ReadInteger();

var Res := 1.0;

SeqFill(N, A).ForEach(x -> begin Res *= x; Print(Res) end)

end.

program For16;//pabc.net

//uses PT4;

begin
//  Task('For16');
  var A := ReadReal();
  var N := ReadInteger();
  SeqGen(N, A, x -> x * A).Println
end.

program For16;//pabc.net

//uses PT4;

begin

// Task('For16');

var A := ReadReal();

var N := ReadInteger();

SeqGen(N, A, x -> x * A).Println

end.

Ответить

Решаем задачи Абрамян на Паскале. For16

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ