Пусть дан массив, содержащий даты. Каждая дата – число, месяц, год. Найти все весенние даты.Использование комбинированного и множественного типа.Pascal.Помогите пожалуйста

Ответы (1)

Румиля 06.11.2024 3

// PascalABC.NET 3.0, сборка 1076
const
n=20; { количество дат }
type
TDate=record
    d:1..31;
    m:1..12;
    y:word
end;
var
dates:array[1..n] of TDate;
i:byte;
s,st:string;

begin
Randomize;
for i:=1 to n do begin
    s:='';
    With dates[i] do begin
      d:=Random(27)+1;
      Str(d,st);
      if Length(st)=1 then st:='0'+st;
      s:=s+st+'.';
      m:=Random(12)+1;
      Str(m,st);
      if Length(st)=1 then st:='0'+st;
      s:=s+st+'.';
      y:=Random(51)+1960;
      Str(y,st);
      s:=s+st;
      if m in [3..5] then s:=s+' - весенняя';
      Writeln(s)
    end
end
end.

Тестовое решение:
22.12.1979
21.10.1975
25.03.1980 - весенняя
23.04.1967 - весенняя
09.10.1967
16.05.1965 - весенняя
09.08.1996
05.10.2001
10.11.1985
18.08.1970
08.10.1983
01.12.2005
01.01.1994
09.11.1962
14.09.1979
24.03.2008 - весенняя
14.01.2003
22.04.1990 - весенняя
18.08.1969
16.05.2009 - весенняя

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ