выбрать все те месяца которые имеют 31 день

@Serjiti · Регистрация: 10.12.2009

Студворк — интернет-сервис помощи студентам

Есть программа.. Задача в том, чтобы выбрать все те месяца которые имеют 31 день.

Pascal

program ffd;
type tdate=record
     day:28..31;
     month:string;
     end;
var   date:array[1..12] of tdate;
i:integer;
begin
for i:=1 to 12 do begin
with date[i] do
date[1].month:='january'; date[1].day:=31;
date[2].month:='february'; date[2].day:=28;
date[3].month:='march'; date[3].day:=31;
date[4].month:='april'; date[4].day:=30;
date[5].month:='may'; date[5].day:=31;
date[6].month:='june'; date[6].day:=30;
date[7].month:='july'; date[7].day:=31;
date[8].month:='august'; date[8].day:=31;
date[9].month:='september'; date[9].day:=30;
date[10].month:='octovber'; date[10].day:=31;
date[11].month:='november'; date[11].day:=30;
date[12].month:='december'; date[12].day:=31;
end.

@Puporev · 10.12.2009, 21:17

Pascal

1 2	for i:=1 to 12 do if date[i].day:=31 then write(date[i].month,' ');

Опции темы