<h3>PascalABC.NET 3.4.2, сборка 1827 от 08.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
a := a[::2].Sorted.Interleave(a[1::2]).ToArray;
a.Println
end.
Program n1;
var
n, i: integer;
p: real;
begin
randomize;
n:=random(15)+1;
p := 1;
for i := 2 to n do
p := p * i;
writeln(n, '! = ',p);
end.
Материнская (системная) плата.
У меня код на Си. Сумеешь перенести на плюсы?
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <locale.h>
int main() {
setlocale (LC_ALL, "RUS");
int a, b, S, P;
printf("Введите длину прямоугольника: ");
scanf ("%d", &a);
printf("Введите ширину прямоугольника: ");
scanf ("%d", &b);
S = a * b; P = (a + b) * 2;
printf ("Площадь - %d \n Периметр - %d \n", S, P);
if (S > P)
printf ("Площадь больше периметра\n");
else
printf("Периметр больше площади\n");
system ("pause");
return 0;
}