program spmp;
uses
crt;
var
i: integer;
f: real;
begin
for i := 1 to 10 do
f := (sqr(i) + 2 * i) / 10;
writeln(f);
end;
readln;
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program spmp;
uses
crt;
var
i: integer;
var
f: real;
begin
for i := 1 to 10 do
begin
f := (sqr(i) + 2 * i) / 10;
writeln(f);
end;
readln;
end.