Uzmetums nākamajām 7 dienām - pārveidot iepriekšējām un nokodēt atstāju pašam.

Izveido masīvu dienas ar elementiem 31,28,31,30,..
Ievada d,m,g
ja g mod 4=0 dienas(2)=29
(Precīzāk būs http://en.wikipedia.org/wiki/Leap_year#Algorithm)
priekš i=1 līdz 7
d:=d+1
ja d>d(m) tad d:=1; m:=m+1
ja m>12: m:=1; g:=g+1
izvada d,m,g
nākamais i

bļāviens :/

Program datumi;
Uses CRT;
Var a, g, m, b, i:integer;
Var d:real;
Begin
Clrscr;
Writeln ('ievadi gadu!');
Readln (g);
b:=(g-(g div 4)*4);
If b=1 then
Writeln ('iisais gads')
else
If a<>1 then
Writeln ('garais gads');
Readln;
Writeln ('ievadi meenesi!');
Readln (m);
If m=4 or m=6 or m=9 or m=11 then
d:=30
Else
If m=2 then
Begin
If b=1 then
d:=28
Else
If b<>1 then
d:=29
End;
Else
d:=31


tiktāl ir vispār kaut cik pareizi?

Isti tā tur nebija domāts...

Slinkums taisīt jaunu topiku, bet man te tāda viena vajadzība - nav kāds sakarīgs manuālis par paskālu latv. val. ? Kā arī - ja nav nekā prātīga latv. val., tad varbūt kāds var iemest te linku, pēc kura būtu vissaprotamāk mācīties angļu val. ? Google jau it kā pilna, bet atrast tādu, kur ir paskaidrots detalizēti - kas ir kas, nav nemaz tik viegli, kā gribētos. -_-

nu jā,tur jābūt vispār tikai 2 if.. then jābūt,ja? :/
bruni,grāmatnīcās ir tāda liela laba grāmata vispār ar visu detalizētu aprakstu,bet nu jā,ir laiks nopirkt,acīmredzot.

#5: Tev tak praktiski viss jau uzrakstīts priekšā, nevajag tur neko lieku gudrot klāt. Vismaz kas ir masīvs zini? Ja zini, tad nevajadzētu būt problēmām.

#4 http://www.liis.lv/nps/nps-0.html
http://www.bf.rtu.lv/documents/edu/pascal_basic.pdf
http://lapas.dau.lv/ole/pasc.html
..
Pat ar visminimālākajām meklēšanas iemaņām nevajadzētu būt grūtībām atrast.

#3 trijiem

Paldies. :]

nē,nezinu,kas ir masīvs.
vispār mums neko tādu mūsu superforšā informātikas skolotāja nav stāstījusi.