27 машин, 2^5=32
5 бит на кодировку одной машины
16*5=80 бит = 10 байт
Код на паскале
program ex;
var
x, y, z: real;
begin
writeln('Введите x и y: ');
readln(x, y);
if ((x*x + y*y) < 1) then
z := x*x + y*y;
if ((x*x + y*y = 1)) then
z := x + y;
if ((x*x + y*y) > 1) then
z := 0.5;
writeln('z = ', z);
end.
Можно разместить посты в соц.сетях таких как:
Так же на различных форумах на разные темы!!!
Var
a, b: real;
begin
readln(a, b);
writeln('S=', a * b);
writeln('P=', 2 * (a + b));
end .
Мне это мама сказала если что-то не правильно скажи,исправлю