//Pascal ABC.NET v3.0 сборка 1111

//"Школьный" вариант, первая блок-схема

Var
a,b,c:integer;
begin
read(a,b,c);
if (a=b) and (b=c) then writeln('=') else
begin;
if a>b then
if a>c then writeln(a);
if b>a then
if b>c then writeln(b);
if c>a then
if c>b then writeln(c);
end;
end.

//Вариант для любителей оккультизма, вторая блок-схема

begin
var se:=ReadArrReal(3);
if se.Sum()/se.Average()=se.Average() then writeln('=') else writeln(se.Max);
end.

Пример ввода:
3
3
3
Пример вывода:
=

0 0

4 года назад

Прочитать ещё 2 ответа

В коробке лежат 32 карандаша. Сообщение о том, что достали зеленый карандаш, несет 3 бит информации. Сколько зеленых карандашей

kamilchik

4 карандаша

32/2=8

8=2^4

4 карандаша

0 0

4 года назад

Автоматическое устройство осуществляет перекодировку сообщения длиной 20 символов, записанного в 16-битном коде Unicode, в 8-бит

Яудача [202]

Уменьшится в 2 раза.
в юникоде сообщение составляет 40 байт, в кои-8 - 20 байт.
значит и уменьшится на 20 байт

0 0

3 года назад