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