Команда 1: Из числа 1 можно выполнить 2 команды, получится: 1) 1+2=3 2) 1*3=3 Команда 2: C каждым полученным числом выполняем еще по 2 команды: Первое число: 1) 3+2=5 2) 6*3=18 Второе число: 1) 3+2=5 2) 6*3=18 Команда 3: У нас получилось 4 числа, проделаем то же самое Первое число: 1) 5+2=7 2) 5*3=15 Второе число: 1)18+2=20 2)18*3=54 Третье число: 1) 5+2=7 2) 5*3=15 Четвертое число : 1)18+2=20 2)18*3=54 В итоге, у нас получилось 4 различных числа (так как при выполнении со второй командой, числа получались те же самые)
// 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.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),0,15); a.Println;
a.Where(t->t>a.First).Println
end.
Пример
n= 15
8 8 9 3 5 10 12 4 1 8 8 6 13 7 6
9 10 12 13