незнайка учит иностраные слова следушим образом. если число кратное трем, является вторником , четвергом или соботой, то он учит 3 испанских и 1 англиское слово. если число месяца , кратное трем, - другой день недели, то он учит 2 англиских и 4 немецких слов. по числам, которые при делении на 3 дают в остатке 1, он учит 1 испанское , 1 англиское и 5 немецких слов . по астольным числам месяца незнайка учит 2 испанских, 4 англиских, и 1 немецкое слова. напишите программу, подсчитывающую сколько слов в июне выучит незнайка, если 1 июня была среда. помогите плиз... icq:448-772-688
program neznayABC; var i,s:integer; begin s:=0; for i:=1 to 30 do begin if ((i)mod(3)=0) and (i=2) and (i=4)and((i)mod(7)=0)and((i)mod(7)=2)and((i)mod(7)=4) then s:=s+4 ; if ((i)mod(3)=0) and ((i)mod(2)<>0) then s:=s+6 ; if (i)mod(3)=1 then s:=s+7 else s:=s+7; end; writeLN('всего незнайка выучит ',s,' слов') ; end. вроде работает, это 939512398