Составить програму которая в зависимости от порядкого номера дня месяца ( 1, 2..12) выводит на екран его название (январь, )

Program z1; var x: integer; begin writeln('введите номер месяца '); readln(x); case x of 1: writeln('январь'); 2: writeln('февраль'); 3: writeln('март'); 4: writeln('апрель'); 5: writeln('май'); 6: writeln('июнь'); 7: writeln('июль'); 8: writeln('август'); 9: writeln('сентябрь'); 10: writeln('октябрь'); 11: writeln('ноябрь'); 12: writeln('декабрь'); end; end.

в 1 кбайте 1024 байта

в 1 байте 8 бит

500*1024=512000 байт

512000*8=4096000 бит

 

1 тбайт 1024 гбайт

1гбайт 1024 мгбайт

1 мбайт 1024 килобайта

1 тбайт содержит 1024*1024*1024*1024=

1099511627776 байт  

 

1 птбай 1024 тбайт 

20 птбай содержат    

20*1024*1024*1024= 21474836480 мбайт

   

102400 байт содержит 1024 кбайт и 1024 мбайт

следовательно это число нужно поделить 2 раза на 1024

и приблизительно =0,0977 мбайт

 

65536 бит содержит 8 байт и 1024 кбайта

=8кбайт

 

65536/1024/1024=0,0625 мбайт

 

 

                                                    начало

                                                  делим на 2

                          есть остаток                               нет остатка

                          возводим в куб                         возводим в кводрат

                                                    конец