Даю 40 баллов ** Паскале помогите написатьДано целое число k (1<=k<=365). Определить...

Question

Даю 40 баллов
На Паскале помогите написать
Дано целое число k (1<=k<=365). Определить каким днём недели<br>(понедельник,вторник,...,субботу или воскресенье) является k-й
день года,в котором 1 января:

а)понедельник
б)d-й день недели (если 1 января-понедельник,то d=1,если вторник -d =2,...,если воскресенье d=7).

Answer 1

Uses crt;
var k,n:integer;
begin
clrscr;
writeln ('введи день года от 1 до 365');
readln (k);
if (k>=1) and (k<=365) then <br>   begin
   n:=k mod 7;
   case n of
1: writeln ('понедельник');
2: writeln ('вторник');
3: writeln ('среда');
4: writeln ('четверг);
5: writeln ('пятница');
6: writeln ('суббота');
0: writeln ('воскресенье');
end;
end
else writeln ('Неверный ввод');
readln;
end.

uses crt;
var k,n,d:integer;
begin
clrscr;
writeln ('Введи с какого дня недели 1 января (1-пон, 2-вт и тд до 7)');
Readln (d);
writeln ('введи день года от 1 до 365');
readln (k);
if (k>=1) and (k<=365) and (d>=1) and (d<8) then <br>   begin
   n:=k mod 7 +d-1;
   case n of
1: writeln ('понедельник');
2: writeln ('вторник');
3: writeln ('среда');
4: writeln ('четверг');
5: writeln ('пятница');
6: writeln ('суббота');
0,7: writeln ('воскресенье');
end;
end
else writeln ('Неверный ввод');
readln;
end.