Дни недели пронумерованы следующим образом: 0-воскресенье, 1-понедельник, 2-вторик и т.д. известно, что первое число месяца был понедельник. определите какой день был в n дату (n< =31)

var a: array[0..6] of string =('voskresenije', 'ponedelnik', 'vtornik', 'sreda', 'chetverg',

'pjatnica', 'subbota'); var c: array[1..31] of string; var b,n,i: integer; begin  b: =1;   for i: =1 to 31 do begin      c[i]: =a[b];       inc(b);       if(b=7) then b: =0;   end;   repeat  write('vvedite n: ');   readln(n);   until(n< =31);   writeln(c[n]);   readln; end.

const

mas: array[1..31] of string =('понедельник',' вторник', 'среда','четверг', 'пятница', 'суббота', 'воскресенье','понедельник',' вторник', 'среда','четверг', 'пятница', 'суббота', 'воскресенье','понедельник',' вторник', 'среда','четверг', 'пятница', 'суббота', 'воскресенье','понедельник',' вторник', 'среда','четверг', 'пятница', 'суббота', 'воскресенье','понедельник',' вторник', 'среда');

var

i,n: integer;

begin

writeln (n);

for i: =1 to 31 do

if (i=n) then writeln (mas[i]);

end.

32 х 64 = 2048 символов на странице, каждый символ - 1 байт то есть на странице 2048 байт, в одном килобайте 1024 байта, значит 2048 байт = 2 килобайта.

память всего 640 килобайт, значит в памяти поместится 320 страниц