Program n1;
<span>var a,b,c,s,p:real;
</span><span>begin
</span><span>readln(a);
</span><span>readln(b);
</span><span>readln(c);
</span><span>if (a+b>c) and (a+c>b) and (b+c>a) then
</span><span>begin
</span><span>p:=a+b+c;
</span><span>s:=sqrt(p*(p-a)*(p-b)*(p-c));
</span><span>writeln('периметр=',p);
</span><span>writeln('площадь=',s);
</span><span>end else
</span><span>writeln('треугольник не существует');
</span><span>end.</span>
# # Код на ruby 2.2.3p173
def NtoR(n)
t = n.to_i
k = 0
while t > 0 do
k += t % 2
t = t / 2
end
if k % 2 == 0 then
return n * 2**2
else
return n * 2**2 + 1 * 2
end
end
min = 1000
for i in 1..200
r = NtoR(i)
min = r if (r > 180) and (min > r)
end
p min
Ответ 184
алг
нач
цел <em>a</em>, <em>sum</em>, <em>pro</em>
вывод 'Введите трёхзначное положительное число: '
ввод <em>a</em>
если <em>a</em><100 или <em>a</em>>999
то вывод 'Это не трёхзначное число. Перезапустите программу!'
иначе
<em>sum </em>:= <em>mod</em>(<em>a</em>, 10) + <em>mod</em>(<em>div</em>(<em>a</em>,10),10) + <em>div</em>(<em>a</em>,100)
<em>pro </em>:= <em>mod</em>(<em>a,</em> 10) * <em>mod</em>(<em>div</em>(<em>a</em>,10),10) * <em>div</em>(<em>a</em>,100)
<em>если </em><em>sum</em> > 9 и <em>sum </em>< 100
то вывод 'Сумма цифр числа ',<em>a</em>,' - двухзначное число (',<em>sum</em>,')', нс
иначе вывод 'Сумма цифр числа ',<em>a</em>,' - не двухзначное число (',<em>sum</em>,')', нс
все
если <em>pro </em>> 99 и<em>pro </em>< 1000
то вывод 'Произведение цифр числа ',<em>a</em>,' - трёхзначное число (',<em>pro</em>,')', нс
иначе вывод 'Произведение цифр числа ',<em>a</em>,' - не трёхзначное число (',<em>pro</em>,')', нс
все
если <em>mod</em>(<em>sum</em>, 3) = 0
то вывод 'Эта же сумма (',<em>sum</em>,') кратна трём', нс
иначе вывод 'Эта сумма (',<em>sum</em>,') не кратна трём', нс
все
все
кон
Имя СЕРВЕР - 6 символов
UNICODE 1 символ = 2 байта
6 символов = 12 байт или 96 бит (12*8).
Ответ: 12 байт