Автор: asdfg

asdfg — Sat, 21 Aug 2021 20:53:39 +0000

var
a,b,x:real;
n:integer;
begin
  readln(a,b);
  readln(n);
  x:=a;
  while x<b do
  begin
    write(x:10:4);
    write(sqrt(x):15:8);
    writeln;
    x:=x+(b-a)/n;
  end;
end.

var

a,b,x:real;

n:integer;

begin

readln(a,b);

readln(n);

x:=a;

while x<b do

begin

write(x:10:4);

write(sqrt(x):15:8);

writeln;

x:=x+(b-a)/n;

end;

end.

Автор: Atema

Atema — Fri, 13 Apr 2018 21:03:23 +0000

//uses PT4;
begin
  //Task('Text42'); 
  var f:text; var (a,b):=ReadReal2; var n:=ReadlnInteger;
  Rewrite(f,ReadString);
  SeqGen(n+1,a,x->x+(b-a)/n).Tabulate(x->sqrt(x)).ForEach(s->begin writeln(f, s.Item1:10:4, s.Item2:15:8) end);
  f.Close;
  //Print(PascalABCVersion); //3.3.5 1600
end.

//uses PT4;

begin

//Task('Text42');

var f:text; var (a,b):=ReadReal2; var n:=ReadlnInteger;

Rewrite(f,ReadString);

SeqGen(n+1,a,x->x+(b-a)/n).Tabulate(x->sqrt(x)).ForEach(s->begin writeln(f, s.Item1:10:4, s.Item2:15:8) end);

f.Close;

//Print(PascalABCVersion); //3.3.5 1600

end.

Комментарии: Решаем задачи Абрамян на Паскале. Text42

Автор: asdfg

Автор: Atema