Var
x:array[1..10] of real;
i,n:integer;
begin
for i:=1 to 10 do begin
writeln('Введите лемент №',i);
readln(x[i]);
if x[i]=5 then
inc(n);
end;
writeln('Всего пятерок ',n);
<span>end.</span>
А) 10 ячеек (5строк*2столбца)
в) 130 ячеек (ячейки в одном столбце, значит 153-23=130)
В) 9 ячеек (3 столюца* 3 строки)
Сообщение племени Мульти занимает 4 * 120 = 460 бит (потому что 16 = )
Сообщение племени Пульти занимает 5 * 96 = 480 бит (потому что 32 = )<span>Ответ: сообщение племени Пульти больше сообщения от племени Мульти на 20 бит. </span>
Готово............................
Отличие , наверное , в том , что информационная услуга дается прост на словах , а обычная услуга - ты выполняешь какое-либо действие ;)