RGB = 256*256*256 цветов = 16`777`216 цветов = 2^(8*3) = 2^24 т.е. 24 бита на пиксель
24*40*40 бит = 38`400 бит = 4`800 байт
Program zad1;
Var
x,B1,B2,B3,B4,B5,y:real;
begin
writeln('Введите X');
readln(x);
B1:=x+1;
B2:= 1/B1;
B3:= B2-1;
B4:= B2+1;
B5:= B3/B4;
y:= B5-1;
writeln('Ответ: ',y:6:2);
end.
10011
-
01100
=
00111
---------------------------------------
Ответ:
алг
нач
цел а,б
б:=0
ввод а
нц пока а > 0
если mod (а,10) = div (mod (а,100),10) то
б:=б+1
вывод "Да"
выход
всё
а:=div (а,10)
кц
если б=0 то вывод "Нет" все
кон
1. Туда 1 мальчик и 1 взрослый. НАзад 1 взрослый.
2) Туда 1 мальчик 1 взрослый. НАзад 1 мальчик.
3) Туда мальчик и взрослый