Var
a, b, c : real;
begin
read (a, b, c);
if (a = b) xor (b = c) xor (a = c) then // если только одно из равенств верно
write (sqr (a), ' ', sqr (b), ' ', sqr (c))
else write (a, ' ', b, ' ', c);
end.
1*2^3+1*2^2+0*2^1+1*2^0=8+4+1=13
<span>Компьютерные словари.<span> Словари необходимы для перевода текстов с одного языка на другой. Первые словари были созданы около 5 тысяч лет назад в Шумере и представляли собой глиняные таблички, разделенные на две части. В одной части записывалось слово на шумерском языке, <span>а в другой — аналогичное по значению слово на другом языке, иногда с краткими пояснениями.</span></span></span>
Так вы уже практически написали программу. Осталось только чуть-чуть приукрасить код:
var
x: integer;
begin
readln(x);
if x mod 2 =0 then writeln(x,' четное') else writeln(x,' нечетное');
end.
0.01010001111010111000010100011110101110000101000<span>111 в двоичной с/c
</span><span><span>0.243656050753412172702436560507534121727024365605078 в восьмеричной с/с</span><span>
</span></span>