Паскалевский вариант от меня.
Program Programma;
Uses crt;
var n, p: integer;
BEGIN clrscr;
write('n = ');
readln(n);
writeln;
if (n > 0) and (n <=100) then
begin
p:=sqr(n);
write('Ответ: p = ', p);
end
else
write('Число ненатуральное или превосходит 1000');
readln;
END.
function FibN(n: integer): List<Biginteger>;
begin
var (f1, f2) := (BigInteger(1), BigInteger(1));
result := Lst(Seq(f1, f2));
for var i := 3 to n do
begin
(f1, f2) := (f2, f1 + f2);
result.Add(f2)
end;
end;
begin
FibN(ReadInteger()).Println
end.
Y=X5
Если Х=2, то 2*5= 10
Ответ: Y=10
Если Х=3, то 3*5=15
Ответ: Y=15
Если что-то не так, то я просто не до конца поняла задание)
S=7.310096
P=19
Programa:
CLSa = 2: b = 8: c = 9r = (a + b + c) / 2p = a + b + cs = SQR(r * (r - a) * (r - b) * (r - c))PRINT "S="; sPRINT "P="; p
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
uses graphABC;
const
kegl = 40;
var
space, line: integer;
procedure M(cx, cy: integer);
begin
MoveTo(cx, cy);
LineTo(cx, cy - kegl );
LineTo(cx + kegl div 2, cy);
LineTo(cx + kegl, cy - kegl);
LineTo(cx + kegl, cy);
end;
procedure I(cx, cy: integer);
begin
MoveTo(cx, cy - kegl);
LineTo(cx, cy );
LineTo(cx + kegl, cy - kegl);
LineTo(cx + kegl, cy);
end;
procedure R(cx, cy: integer);
begin
MoveTo(cx, cy);
LineTo(cx, cy - kegl);
LineTo(cx + kegl, cy - kegl);
LineTo(cx + kegl, cy - kegl div 2);
LineTo(cx, cy - kegl div 2);
end;
begin
space := kegl div 2;
SetWindowSize(4 * space + 3 * kegl, 4 * space + 3 * kegl );
line := space + kegl;
M(space, line );
I(2 * space + kegl, line );
R(3 * space + 2 * kegl, line );
line := 2 * space + 2 * kegl;
R(space, line );
I(2 * space + kegl, line );
M(3 * space + 2 * kegl, line );
line := 3 * space + 3 * kegl;
M(space, line );
I(2 * space + kegl, line );
M(3 * space + 2 * kegl, line );
end.
