1бит-1символ
8бит-1байт
1) 480*8=38400 бит(символов)
2) 24*20*16=7680 символов всего
3) 38400:7680= 5 страниц
//Pascal ABC.NET 3.1 сборка 1256
Var
ars:array[1..12] of string:=('января','февраля','марта','апреля','мая','июня','июля','августа','сентября','октября','ноября','декабря');
s:string;
begin
read(s);
if s[1]='0' then delete(s,1,1);
write(copy(s,1,pos('.',s)-1),' ');
delete(s,1,pos('.',s));
write(ars[strtoint(copy(s,1,pos('.',s)-1))],' ');
delete(s,1,pos('.',s));
write(s,' года');
end.
Пример ввода:
15.10.2012
Пример вывода:
<span>15 октября 2012 года</span>
Подготовить тесто,нагреть сковороду,смазать маслом сковороду,разлить тесто по поверхности сковороды,круговыми движениями придать форму круга,поставить на огонь примерно на 30 секунд,перевернуть блин,перенести блин на тарелку,смазать блин маслом,посыпать сахаром блин,повторить.
<em>// PascalABC.NET 3.2, сборка 1346 от 25.11.2016</em>
<em>// Внимание! Если программа не работает, обновите её версию!</em>
begin
var n:=Readinteger('n=');
Writeln(n mod 10, (n div 10) mod 10)
end.
<u>Пример</u>
n= 368
86