32.
var d,b,c,y:integer;
begin
readln(d,b,c);
if d>0 then writeln(y=(1/sqrt(d))*arctan((b+c)/sqrt(d)));
if d=0 then writeln(y=(-1)/(b+c));
if d>5 then writeln(y=(1/(2*sqrt(d)))*ln(sqrt(d)));
readln;
<span>end.
Могу только этот номер:D</span>
'0' = 0 <span>False разные типы</span>
ord('0') = 0 <span>False</span><span>ord('0') = 48 </span>
если c – литера и '0'≤c≤'9', то c – цифра True
если c – литера и 'a'≤c≤'z', то c – строчная латинская буква
True
<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(27,-20,20); a.Println;
var max:=a.Where(t->t<0).DefaultIfEmpty.Max;
if max=0 then Writeln('Таких чисел нет')
else Writeln(max)
end.
<u>Пример</u>
6 2 14 16 -18 -18 -8 17 -9 12 8 16 4 -5 -3 11 17 -6 8 13 4 12 5 -4 -8 16 -8
-3
const
s: array [1..6] of char= ('б','в','г','д','ж','з');
d: array [1..6] of char= ('п','ф','к','т','ш','с');
var
c: string;
i,j: integer;
begin
readln(c);
for i:= 1 to length(c) do
for j:= 1 to 6 do
if d[j]=c[i] then c[i]:= s[j]
else
if s[j]=c[i] then c[i]:= d[j];
writeln(c)
end.<span>
</span>