var
a : integer;
begin
readln (a);
if a > 0 then
a := a +1;
if a <0 then
a := a-2
if a= 0 then
a := 10;
writeln (a);
end.
1/16 кбайт = 64 байт = 512 бит
512 бит / 128 символов = 4 бита на символ
2^4 = 16 - максимальное количество комбинаций для шифрования букв.
Ответ B
Var
a,b,c,p,s:real;
begin
Write('Введите стороны треугольника: ');
Read(a,b,c);
if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
Writeln('p=',2*p:0:2,', s=',s:0:4)
end
else Writeln('0')
end.
Program kvadr_nechot;
var i:integer;
begin
for i:=1 to 9 do
if i mod 2 = 1 then write(i*i, ' ')
end.