Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Дни недели пронумерованы следующим образом: 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.