Написать программу, которая бы по введенному номеру времени года ( 3...5 — весна, 6...8 — лето, 9...11 — осень, иначе зима) выдавала соответствующие этому времени года месяцы.
У вас есть число 137 если вам надо перевести его в какую-нибудь систему счисления, то нужно делить это число на номер системы, так если нужно перевести число 137 в ДВОичную ,то делим на 2 до тех пор, пока остатотк от деления не равен 1.(если в ТРОичную то на 3 и т.д.). начнём: 137 / 2 = 68 выписываем остаток (1) 68 / 2 = 34 выписываем остаток (0) 34 / 2 = 17 выписываем остаток (0) 17 / 2 = 8 выписываем остаток (1) 8 / 2 = 4 выписываем остаток (0) 4 / 2 = 2 выписываем остаток (0) 2 / 2 = 1 <== на этой единице заканчиваем деление, далее снизу вверх выписываем получившееся число : 001001; ответ: 001001
begin clrscr; repeat Write('Выберите фигуру (1-квадрат, 2-прямоугольник)'); Readln(n);
case n of 1: begin write('Сторона квадрата='); readln(a); Write('S=', a * a); end; 2: begin write('Стороны прямоугольника='); readln(b, a); Write('S=', b * a); end; else exit; end; until false; end.
если вам надо перевести его в какую-нибудь систему счисления, то нужно делить это число на номер системы, так если нужно перевести число 137 в ДВОичную ,то делим на 2 до тех пор, пока остатотк от деления не равен 1.(если в ТРОичную то на 3 и т.д.).
начнём:
137 / 2 = 68 выписываем остаток (1)
68 / 2 = 34 выписываем остаток (0)
34 / 2 = 17 выписываем остаток (0)
17 / 2 = 8 выписываем остаток (1)
8 / 2 = 4 выписываем остаток (0)
4 / 2 = 2 выписываем остаток (0)
2 / 2 = 1 <== на этой единице заканчиваем деление, далее снизу вверх выписываем получившееся число : 001001;
ответ: 001001
var
b, a: real;
n: integer;
begin
clrscr;
repeat
Write('Выберите фигуру (1-квадрат, 2-прямоугольник)');
Readln(n);
case n of
1:
begin
write('Сторона квадрата=');
readln(a);
Write('S=', a * a);
end;
2:
begin
write('Стороны прямоугольника=');
readln(b, a);
Write('S=', b * a);
end;
else exit;
end;
until false;
end.