Question

Надо срочно решить Задания делать в Pascal ABC

Answer 1

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!

10)
function return_square(a, b, alpa :real):real;
begin
var pi := arccos(-1);
return_square:= 0.5*a*b*sin(alpa*pi/180);
end;

begin
var n:= readInteger('N =');
for var i:= 1 to n do
Writeln('S = ', return_square(ReadReal('a ='),
ReadReal('b ='),ReadReal('angle =')))
end.



Там , где площадь и периметр N прямоугольников
begin
var n:= readInteger('N =');
for var i:= 1 to n do begin
var (a,b):=ReadReal2('a, b =');
Writeln('S = ', a*b);
Writeln('P = ', 2*(a+b));
end;
end.