Var s: integer;
begin
s := random(1000)+2;
writeln(s);
if (s mod 2 = 0) then writeln('Четное.')
else
writeln('Нечетное')
<span>end.</span>
2^i=N
2^i=32 => i=5 бит
Ответ: информационный объём данного сообщения равен 5 бит.
Слово посылка образовано с помощью приставки по
5125б, 5кбайт, 925кбайт, 1 мб, 12 мб
Можешь чекнуть таблицу содержащию виды памяти
Var a,d,b,s:real;
begin
write('a = '); readln(a);
write('d = '); readln(d);
b:=sqrt(d*d-a*a);
s:=a*b;
writeln('S = ',s);
end.
Пример:
a = 4
d = 5
S = 12