0.345= 0.011100101
24.025= 10100.000010101
0.25= 0.010101
1.
var k, l, m, n: integer;
begin
readln(k,l,m,n);
if (k+l+m+n mod 2 = 0) then
writeln('поля одного цвета')
else
writeln('поля разных цветов')
end.
2.
uses crt; {В зависимости от компилятора эта строчка может оказаться лишней}
var question, answer: integer;
begin
randomize();
question := random(100);
writeln(question);
readln(answer);
if (question+answer=100) then
writeln('Not bad')
else
writeln('Oops. Right answer is ', 100-question)
end.
64 цвета => объём, который занимает 1 точка изображения в памяти, равен 6 бит (2^6 = 64)
512*64*6 = 2^7*2^6*2*3 = 2^14*3 (объём в битах)
1 Кбайт = 2^13 бит
2^14*3 / 2^13 = 2*3 = 6 Кбайт
674 = <span>DCLXXIV
78 = </span><span>LXXVIII
465 = </span><span>CDLXV
</span>3440 = <span>MMMCDXL
</span>MMMDXIV = <span>3514
CCCI = </span><span>301
CDVII = </span><span>407
LIX = </span><span>59
MMCCCDXXIV = </span><span>2624
</span>
a - двухзначное число, b - первая цифра двухзначного числа
b: = a div 10;
if (b mod 2 = 0) then writeln ('Цифра чётная');
if (b mod 2 = 1) then writeln ('Цифра нечётная');