// PascalABC.NET 3.2, сборка 1363 от 17.12.2016 // Внимание! Если программа не работает, обновите версию!
begin var N:=ArrRandom(50,-111,348); N.Println; Writeln('Произведение элементов, кратных 5, равно ', N.Where(x->x mod 5=0).Aggregate(BigInteger(1),(a,b)->a*b)); if N.Where(x->x.IsOdd).Count>N.Where(x->x.IsEven).Count then Writeln('Нечетных элементов больше') else Writeln('Четных элементов больше') end.
// PascalABC.NET 3.2, сборка 1363 от 17.12.2016 // Внимание! Если программа не работает, обновите версию!
begin var N:=ArrRandom(50,-111,348); N.Println; Writeln('Произведение элементов, кратных 5, равно ', N.Where(x->x mod 5=0).Aggregate(BigInteger(1),(a,b)->a*b)); if N.Where(x->x.IsOdd).Count>N.Where(x->x.IsEven).Count then Writeln('Нечетных элементов больше') else Writeln('Четных элементов больше') end.
Нужно написать програмку, которая считает площадь окружности, если ввести сторону квадрата
У меня вышла формула :
S окр = ((a^2)/2) * (P(число пи)-2) - Площадь круга минус площадь квадрата
вот код :
Program Okruzhnost;
Var
x,y: real;
S: real;
Procedure RectS(a,b: real; Var S:real);
Begin
S := (((sqr(x))/2) * (pi-2));
end;
Begin
WriteLn('Введите сторону квадрата');
ReadLn(x,y);
RectS(x,y,S);
WriteLn('Площадь окружноси равна',S);
end.