uses crt;
var k: char;
begin
repeat
textcolor(0);
clrscr;
writeln('выберите цвет 1-красный, 2-жёлтый, 3-зеленый другое-выход');
readln(k);
clrscr;
case k of
'1': begin
textcolor(2);
write('красный');
readln
end;
'2': begin
textcolor(14);
write('желтый');
readln
end;
'3': begin
textcolor(12);
write('зеленый');
readln
end;
else exit;
end;
until not(k in ['1'..'3']);
end.
вроде так
объяснение:
ответ:
ропор и топор
объяснение:
представим что имеем дело с 4-ичной системой счисления { 0 - о, 1 - п, 2 - р, 3 - т }. в таком случае вышенаписанный ряд можно представить в такой виде:
1. () = 0 в 10ичной сс
2. (1) = 1 в 10ичной сс
3. (2) = 2 в 10ичной сс
4. (3) = 3 в 10ичной сс
5. (00010) = 4 в 10ичной сс
исходя из этого, чтобы получить слово, находящееся на 531 месте и 787 месте, достаточно перевести числа 530 и 786 в 4-ичную систему счисления и заменить цифры буквами.
1.
530 / 4 = 132 (2 остаток)
132 / 4 = 33 (0 остаток)
33 / 4 = 8 (1 остаток)
8 / 4 = 2 (0 остаток)
530(10) = 20102 (4)
замена: ропор
2.
786 / 4 = 196 (2 остаток)
196 / 4 = 49 (0 остаток)
49 / 4 = 12 (1 остаток)
12 / 4 = 3 (0 остаток)
786(10) = 30102(4)
замена: топор
Поделитесь своими знаниями, ответьте на вопрос:
Как нарисовать в "логомиры 3.0" радугу, , ))