все верно же 1 объект 2 множествами 3 объектами
Var x1,y1,x2,y2:integer;
begin
write('Первое поле:');
readln(x1,y1);
write('Второе поле:');
readln(x2,y2);
if ((x1+y1)mod 2)=((x2+y2)mod 2)
then writeln('Поля имеют одинаковый цвет')
else writeln('Поля имеют разный цвет');
end.
Пример:
Первое поле:2 3
Второе поле:7 5
Поля имеют разный цвет
Var s,n:integer;beginreadln(n);if (n < 10) or (n > 99) then writeln('NO') elsewhile n<>0 do begins:=s+n mod 10;n:= n div 10;end;if (s>10) and (s< 20) thenwriteln('YES') elsewriteln('LOCK');end.
1. 5.3 МБ = 5.3 * 2^10 КБ = 5.3 * 2^20 Байт = 5557452,8 байт.
2. 7032 бит = 7032 / 8 байт = 879 байт = 879 / 1024 Кбайт ~ 0.9 Мбайт.
3. 1.7 ГБ = 1.7 * 2^10 МБ = 1740,8 МБ = ~1741 МБ
4. 3076 КБ / 1024 = 3,00390625 МБайт = ~ 3Мбайт
5. 1024000 бит = 1024000 / 8 байт = 128000 байт / 1024 КБ = 125 КБ / 1024 = 0.12 МБ / 1024 = ~0.0001 Гб.
При повышение приставки, например, из КБ в МБ, значение следует умножать на 1024(2^10 степени). При понижении, соответственно, делить.
Для того, чтобы перевести из битов в байты, нужно количество бит разделить на 8(2^3).
11001101 11101000 11111000 11101110 11101101 11101110 11100010