===== PascalABC.NET =====
function nF(n: integer) := Range(1, n).Product;
begin
SeqGen(5, i -> nF(i), 1).Sum.Println
end.
Жили были системный блок и монитор.У них были дети,мышка,клавиатура,наушники,и колонки.Как то раз к ним пришел в гости windows,с драйверами и антивирусом.И установили операционую систему и жили они долго и счастливо!
program chisla;
var a,b,c:real;
begin
write('Введите числа a,b и с через пробел:'); readln(a,b,c);
if (a<=b) and (b<=c) then begin
a:=exp(ln(a)*3);
b:=exp(ln(b)*3);
c:=exp(ln(c)*3);
end;
if (a>b) and (b>c) then begin
a:=-a;
b:=-b;
c:=-c;
end;
writeln(a,' ',b,' ',c);
end.
<em>;)</em>
И12П
И124П
И1234П
И14П
И142П
И1432П
И132П
И134П
И1324П
И1342П
И34П
И342П
И3412П
И32П
И324П
И3214П
И312П
И314П
И3124П
И3142П
Как-то так
я прошу не блокировать . Но какой это класс?