Напишите программу на языке c++, которая определяет, будет ли k-й день выходным, если 1 января - понедельник. требуется вывести "yes", если этот день выходной, "no" если нет.
var i: word; //Было предпочтительнее использовать byte, //ведь от 3 до 7 считаем, но тип word старее, //а к byte могут придраться
begin SetBrushColor(clBlue); //Проставляем цвет кисти, я не //нашёл функции рисования круга, //где можно было бы указать цвет for i := 3 to 7 do begin FillCircle(200, 200, 10 * i); //Рисуем круг, радиус от 30 до 70 sleep(500); //Поскольку круги в конечном счёте всё равно //затираются более большими, будем выводить //с задержкой end; end.
1. Чтобы записать число 103 в беззнаковом восьмиразрядном формате, нам понадобится двоичный код этого числа.
Шаг 1: Переведем число 103 в двоичную систему счисления:
103 = 64 + 32 + 4 + 2 + 1 = 1100111
Шаг 2: Запишем это число в восьмиразрядном формате, дополнив нулями слева, чтобы получить восемь разрядов:
00110011
Таким образом, число 103 в беззнаковом восьмиразрядном формате будет записано как 00110011.
2. Чтобы найти десятичный эквивалент числа, представленного в беззнаковом 16-тиразрядном формате, нужно перевести этот двоичный код обратно в десятичную систему.
Шаг 1: Разобьем двоичный код на группы по четыре разряда:
0000 0000 0011 0011 0111
Таким образом, десятичным эквивалентом числа, представленного в беззнаковом 16-тиразрядном формате, будет число 8199.
3. Запись чисел в естественной форме:
a. Число 8,96E-4 можно записать в естественной форме как 0,000896.
Обоснование: Экспонента -4 означает, что нужно сдвинуть десятичную запятую на четыре разряда влево.
Таким образом, итоговая запись будет иметь вид 0,000896.
b. Число 0,037E+5 можно записать в естественной форме как 3700.
Обоснование: Экспонента +5 означает, что нужно сдвинуть десятичную запятую на пять разрядов вправо.
Таким образом, итоговая запись будет иметь вид 3700.
Надеюсь, что ответ был понятен! Если у вас возникнут еще вопросы, не стесняйтесь задавать.
GraphABC;
var
i: word; //Было предпочтительнее использовать byte,
//ведь от 3 до 7 считаем, но тип word старее,
//а к byte могут придраться
begin
SetBrushColor(clBlue); //Проставляем цвет кисти, я не
//нашёл функции рисования круга,
//где можно было бы указать цвет
for i := 3 to 7 do
begin
FillCircle(200, 200, 10 * i); //Рисуем круг, радиус от 30 до 70
sleep(500); //Поскольку круги в конечном счёте всё равно
//затираются более большими, будем выводить
//с задержкой
end;
end.