Как решать обьясните в коробке лежат кубики: 4 красных,7 зеленых,12 желтых и 11 синих.вычислите количество - id935485820220205 от misha99672 05.02.2022 04:21

Question

Информатика: Как решать обьясните в коробке лежат кубики: 4 красных,7 зеленых,12 желтых и 11 синих.вычислите количество информации в сообщении что достали красный кубик,зеленый кубик,желтый кубик,синий кубик. внимание не решать через логарифмы если существует другой решите другим

misha99672 · Accepted Answer

Cvar
f: Text;
k: integer;
s, p: longint;
i: integer;

begin
Assign(f, 'output.dat');
Rewrite(f);
writeln('Вводите данные, окончание число 7777');
repeat
    read(k);
    if k<>7777 then writeln(f,k)
    until k=7777;
Close(f);
Reset(f);
s := 0;
p := 1;
writeln;
while not Eof(f) do
begin
    readln(f, k);
    write(k:4);
    s := s + k;
    if k <> 0 then p := p * k
end;
Close(f);
writeln;
writeln('Сумма= ', s, ', произведение= ', p)
end.

Вводите данные, окончание число 7777
3
6
-4
6
2
-3
-4
2
6
0
5
-1
7777

   3   6 -4   6   2 -3 -4   2   6   0   5 -1
Сумма= 18, произведение= 622080

MOGZ ответил