Maijs. 18., 2006 | 09:20 am
No:: octo
function diena(d,m:integer):integer;
var x:integer;
begin
case m of
1: x:=0;2: x:=31;3: x:=59;
4: x:=90;5: x:=120;6: x:=151;
7: x:=181;8: x:=212;9: x:=243;
10: x:=273;11: x:=304;12: x:=334;
else
x:=0;
end;
diena:=x+d;
end;
begin
writeln(diena(1,2));
end.
var x:integer;
begin
case m of
1: x:=0;2: x:=31;3: x:=59;
4: x:=90;5: x:=120;6: x:=151;
7: x:=181;8: x:=212;9: x:=243;
10: x:=273;11: x:=304;12: x:=334;
else
x:=0;
end;
diena:=x+d;
end;
begin
writeln(diena(1,2));
end.