Количество символов в сообщении: 48*64*40= 122880
Информационный объем сообщения= кол-во символов*информационный объем одного символа= 122880*8= 983040 бит
983040/8= 122880 байт
122880/1024= 120 Кбайт
Ответ: Размер статьи = 120 Кбайт
Var
c:real;
begin
writeln('Введите число');
readln(c);
if c<0 then c:=c*-1;
writeln('Модуль числа=',c);
<span>end.</span>
Можешь не благодарить
var
a,n:integer;
begin
readln(a);
while a<>0 do
begin
if (a mod 5=0)or (a mod 7=0)then inc(n);
readln(a);
end;
writeln(n);
end.
P(красн) = 6/16; p(желт) = 10/16
i(красн) = log(2)[1/(6/16)] = log(2)[16/6] ≈ 1,415
i(желт) = log(2)[1/(10/16)] = log(2)[16/10] ≈ 0,678
ОТВЕТ
вроде так
var x, y:real;
begin
read(x, y);
if ((x > 2) and (y < 7*(1 - x/6)) and (y > (5*x - 22)/3)) then
writeln('Принадлежит')
else
writeln('Не принадлежит')
end.