Program h2;
const
n=20;
var i:integer;
s:real;
begin
for i:=2 to n do
begin
if (i mod 2=0) then s:=s+1/i;
end;
writeln(s);
end.
I = K*i, где K-кол-во символов, i- размер алфавита
<span> Значит i = 8</span>
<span> бит</span>
Так как нам нужно в байтах, то (в 1 байте 8 бит) делим на 8 ()
<span> байт</span>
Подсчитываем и в итоге получаем ответ:
<span> байт</span>
<span>Ответ: 30720 байт. вот решение </span>
Блок схема приведена в приложенном файле.
Результатом работы программы является вывод на экран:
-если x<= y И y<=z, то выводим значения произведений 2*x, 2*y, 2*z
-иначе выводим модули значений переменых x, y, z.
//правильно вот так:
Program al;
var c: real;
begin
c:=4.75;
writeln('c=',c);
end.