3. (Если сами прямоугольники не квадраты, то 1)
Var
a, b, x: real;
begin
read(a, b);
x:= -b/a;
writeln(x);
end.
Мраморная скульптура является носителем информации
I = K*i, где K-кол-во символов, i- размер алфавита
<span> Значит i = 8</span>
<span> бит</span>
Так как нам нужно в байтах, то (в 1 байте 8 бит) делим на 8 ()
<span> байт</span>
Подсчитываем и в итоге получаем ответ:
<span> байт</span>
<span>Ответ: 30720 байт. вот решение </span>
Uses crt;
var a:array[1..4] of integer;
sum,i:integer;
begin
clrscr;
writeln('Введите 4 целых числа:');
for i:=1 to 4 do
begin
read(a[i]);
if a[i]mod 3=0 then sum:=sum+a[i];
end;
writeln('Сумма чисел, кратных трем: ',sum);
<span>end.</span>