kuryaevm
02.07.2020 22:45

Недавно археологи обнаружили странную находку, предположительно летопись
некоторых событий, которая может раскрыть берляндским историкам причину исчезновения
столь могущественного общества — стопку из дюжины блестящих тонких дисков из
неизвестного материала, нанизанных на алмазный стержень. На верхнем диске ученые
обнаружили три числа, каждое из которых состоит из двух цифр. Ученые предположили, что на
диске записана дата конца великой цивилизации.
После анализа дисков было установлено, что они использовались в XXI веке по
летоисчислению, использовавшемуся древней цивилизацией — так называемому
«григорианскому» календарю — год продолжительностью 365 дней, разделялся по нему на
двенадцать месяцев. Второй месяц в году имел продолжительность двадцать восемь дней,
первый, третий, пятый, седьмой, восьмой, десятый и двенадцатый — тридцать один день,
остальные — тридцать дней. В особые года, номер которых делился на четыре и не делился на
сто, либо делился на четыреста, второй месяц длился двадцать девять дней. Веком номер i
назывался период с 100 × (i − 1) + 1 года по 100 × i.
Так как достоверно не известно, в каком порядке представители древней цивилизации
записывали даты, вам, как главному специалисту по григорианскому календарю, поручили
провести исследование — установить, каким датам в XXI веке могла соответствовать надпись,
в предположении, что одно из чисел соответствует дню в месяце (дни в каждом месяце
нумеровались с единицы), еще одно из чисел — номеру месяца (месяцы также нумеровались с
единицы), и еще одно число — последним двум цифрам года в XXI веке григорианского
календаря.
По заданной надписи на диске выясните, каким датам в XXI веке она могла
соответствовать.
Формат входного файла
Во входном файле в формате aa/bb/cc записаны числа с диска.
Формат выходного файла
В выходной файл в произвольном порядке выведите все корректные даты dd/mm/yy в
XXI веке, где dd соответствует номеру дня, mm – номеру месяца, yy — номеру года, причем
числа, соответствующие dd, mm и yy являются перестановками чисел с диска.
В случае, если никакая перестановка исходных чисел не является корректной датой XX

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
максик1234431
01.02.2022 09:01
Var  i: integer;  begin
for i:=1 to 9 do  write(i);  writeln(10);
for i:=0 to 8 do  write(i);  writeln(9);
for i:=1 to 2 do  write('0');  for i:=1 to 7 do  write(i);  writeln('8');
for i:=1 to 3 do  write('0');  for i:=1 to 6 do  write(i);  writeln('7');
for i:=1 to 4 do  write('0');  for i:=1 to 5 do  write(i);  writeln('6');
for i:=1 to 5 do  write('0');  for i:=1 to 4 do  write(i);  writeln(5);
for i:=1 to 6 do  write('0');  for i:=1 to 3 do   write(i);  writeln('4');
for i:=1 to 7 do  write('0');  for i:=1 to 2 do  write(i);  writeln(3);
for i:=1 to 8 do  write('0');  write('1');writeln('2');
for i:=1 to 9 do  write('0');  writeln(1);  
end.

Как сделать более кратко не знаю. Но эта программа работает.
0,0(0 оценок)
Ответ:
pro100rak2
01.02.2022 09:01
Const
  nn = 20;

var
  i, j, n: integer;
  a: array[1..nn, 1..nn] of integer;

begin
  writeln('Задайте размер матрицы n');
  readln(n);
  if n > nn then
    writeln('Вы превысили допустимый размер матрицы 20')
  else begin
    writeln('Матрица-результат');
    for i := 1 to n do
    begin
      writeln;
      for j := 1 to n do begin
        if i < j then a[i, j] := 1
        else if i = j then a[i, j] := 2
        else a[i, j] := 3;
        write(a[i, j]:2)
      end;
    end;
    writeln
  end
end.

Тестовый пример:

Задайте размер матрицы n
10
Матрица-результат

 2 1 1 1 1 1 1 1 1 1
 3 2 1 1 1 1 1 1 1 1
 3 3 2 1 1 1 1 1 1 1
 3 3 3 2 1 1 1 1 1 1
 3 3 3 3 2 1 1 1 1 1
 3 3 3 3 3 2 1 1 1 1
 3 3 3 3 3 3 2 1 1 1
 3 3 3 3 3 3 3 2 1 1
 3 3 3 3 3 3 3 3 2 1
 3 3 3 3 3 3 3 3 3 2
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота