Вопрос по информатике:
Дни недели пронумерованы следующим образом: 0-воскресенье, 1-понедельник, 2-вторик и т.д. Известно, что первое число месяца был понедельник. Определите какой день был в N дату (N<=31)
- 14.09.2015 10:01
- Информатика
- remove_red_eye 4668
- thumb_up 38
Ответы и объяснения 2
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.
- 15.09.2015 18:01
- thumb_up 44
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.
- 16.09.2015 03:11
- thumb_up 34
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.