Найди лишнее десятичное чило и зачеркни.23,53,73,37,83.17,20,21,37,9940,44,48,88,42
Kulebakin
1 лишнее число-37 2 лишнее число-99 3 лишнее число-88
Var
i, sum: longint;
begin
for i := 1 to 100 do sum := sum + sqr(i);
write(sum);
end.
Function min (a,b,c,d: integer):integer;
var m1,m2:integer;
begin
if a<b then m1:=a else m1:=b;
if c<d then m2:=c else m2:=d;
if m1<m2 then min:=m1 else min:=m2;
end;
var a,b,c,d:integer;
begin
writeln('Введите 4 числа:');
readln(a,b,c,d);
writeln('min = ',min(a,b,c,d));
end.
Пример:
Введите 4 числа:
5 8 3 6
min = 3
Пусть K - количество символов в одном из первоначальных сообщений.
Тогда:
K*8 бит = K*8/8 байт = K байт - объем одного первоначального сообщения
2*K*16 бит = 2*K*16/8 байт = 4*K байт - объем полученного сообщения
4*K - 2*K = 240 ⇒ K = 120
Ответ: 120 символов