var
a,b,c: integer;
p,v,s,f: real;
begin
write (’Введите число:’);
readln (a);
writeln (‘Введите месяц’);
readln (b);
writeln ('Введите год');
readln ©;
p:=(c mod 4);
v:=(c div 4);
if p=0 then case b of
1: b:=31;
2: b:=2*31-3;
3: b:=3*31-3;
4: b:=4*31-4;
5: b:=5*31-4;
6: b:=6*31-5;
7: b:=7*31-5;
8: b:=8*31-5;
9: b:=9*31-6;
10: b:10*31-6;
11: b:=11*31-7;
12: b:=12*31-7;
else
end;
s:=v*364+(c-v)*365+b+a;
f:=s div 7;
case f of
0: writeln ('воскресение');
1: writeln ('понедельник');
2: writeln ('вторник');
3: writeln ('среда');
4: writeln ('четверг');
5: writeln ('пятница');
6: writeln ('суббота');
end;
else case b of
1: b:=31;
2: b:=2*31-2;
3: b:=3*31-2;
4: b:=4*31-3;
5: b:=5*31-3;
6: b:=6*31-4;
7: b:=7*31-4;
8: b:=8*31-4;
9: b:=9*31-5;
10: b:10*31-5;
11: b:=11*31-6;
12: b:=12*31-6;
else
end;
s:=v*364+(c-v)*365+b+a;
f:=s div 7;
case f of
0: writeln ('воскресение');
1: writeln ('понедельник');
2: writeln ('вторник');
3: writeln ('среда');
4: writeln ('четверг');
5: writeln ('пятница');
6: writeln ('суббота');
end;
readln;
end.
Цель задачи: Вводим дату и программа показывает день недели., помогите найти ошибку |