F1=lambda a,b: a/b
f2=lambda a,b: a if a<b else b
f3=lambda a,b: '=' if a==b else ('<' if a<b else '>')
procent=lambda a: a/100
#примеры
p=print
p(f1(8,2),f1(2,4))
p(f2(5,7),f2(4,3))
p(f3(5,6),f3(5,5),f3(7,3))
p(procent(40))
#результат
#4 0.5
#5 3
#< = >
#0.4
<em>// PascalABC.NET 3.3, сборка 1599 от 17.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadSeqInteger(ReadlnInteger).Where(t->t mod 4=0).Max)
end.
<u>Пример</u>
10
-8 6 12 0 -8 19 -5 2 12 -40
12
1111011
6 единиц, и снова здравствуйте!
Var a,b,c,S,p:real;
begin
readln(a,b,c);
if (a<b) and (b<c) then writeln(a,b,c);
p:=0;
p:=a+b+c/2;
S:=0;
S:=sqrt(p*(p+a)*(p+b)*(p+c));
writeln(S:5:3);
end.