10 класс, паскаль С экрана запрашивается номер месяца. В зависимости от введенного значения на экран выводится либо сообщение о
10 класс, паскаль
С экрана запрашивается номер месяца. В зависимости от введенного значения на экран выводится либо сообщение о том, какому времени года этот месяц принадлежит, либо о том, что месяца с таким номером не существует. Каждое время года выводится своим цветом: зима - белым, весна - зеленым, лето - красным, осень - желтым. Сообщение о том, что месяца с таким номером не существует, - серым.
Program PORA;
Var MONTH:integer;
begin
writе('Введіть порядковий номер місяця:');
readln(MONTH);
if (M0NTH<1) or (month>12)
then writeln('Такого
місяця немає')
else
case MONTH of
3,4,5:writeln('Becнa');
6,7,8:writeln('Лiтo');
9,10,11l:writeln(Ociнь');
12,1,2:writeln('3имa')
end;
end.
Мы знаем объем V=3150 байтов (нужно перевести в биты, умножив на 8). Длина сообщения K=4*30*70. Есть 2 волшебные формулы: V=K*i N=2^i можно найти сначала i i=V/K а затем и мощность алфавита N.