Pascal
Program room;
Var a, b, c, d, m, n, S, o : real;
Begin
Readln(a, b, c, d, m, n);
S = a*b*4;
O = c*d + m*n;
S = S - O;
Writeln(S);
End.
Program z1;
uses GraphABC;
begin
setpencolor(clgreen);
line(30,50,60,20);
line(60,20,90,50);
line(90,50,30,50);
line(30,80,60,50);
line(60,50,90,80);
line(90,80,30,80);
line(30,110,60,80);
line(60,80,90,110);
line(90,110,30,110);
floodfill(60,40,clgreen);
floodfill(60,70,clgreen);
floodfill(60,100,clgreen);
end.
Окей,
Черный и Белый (без град серого) - это два цвета, значит кол-во цветов в палитре - 2. (N=2)
x=400
y=250
Найдём глубину цвета.
N=2^i
i=log2 2
i=1
Находим информационный объём.
V=x*y*i
V=400*250*1=100000 бит
Переводим биты в килобайты.
100000 бит = 12500 байт = 12,2 кБ
Ответ: 12,2 Кб
М-М * Р-ТА-Ф * Г-ММ-Ш * Р-М
М not(Т) М,Ш,ФР not(Ш) Т,Ф,М
А v T v ФГ v Ш v М
Г-М А-Ф М-Ш Р-Т
<span>
ответ
Р М А Г</span>
1) while. Потому что проверка условия происходит сразу же, и если будет ложь, то цикл вообще выполняться не будет.
2) repeat/until
3) repeat
B=B-A
Until A4)
а, в: алгоритм циклической структуры
б: алгоритм разветвляющейся структуры
г: алгоритм линейной структуры
5) б
6) х: 13, у: 12
7) х:4, у: 12
8) 24
9:
...
А:=16;
B:=2;
While (B<>32) do
Begin
B:=B*2;
A:=A+2;
End;
...