Регистрация
nikoszahar
23.12.2020 07:51
Информатика
Есть ответ 👍

Создать массив из цифр из 20 элементов и инвентировать его (т.е. вывернуть его задом на перед)

153
188
Посмотреть ответы 2

Ответы на вопрос:

Алекс4211
Алекс4211
4,8(71 оценок)
Const n = 20; type mas = array [1..n] of longint; procedure input(var m: mas); var i: longint; begin for i : = 1 to n do read(m[i]); end; procedure output(m: mas); var j: longint; begin for j : = n downto 1 do write(m[j], ' '); end; var m: mas; begin input(m); output(m); end.
abcdeshnik
abcdeshnik
4,5(13 оценок)
Pascalabc.net 3.4.2, сборка 1843 от 24.10.2018 внимание! если программа не работает, обновите версию!

begin

  try

    var vdata : = readlnstring('введите дату по образцу дд.мм.гг: ');

    if vdata = '' then exit;

    var s : = vdata.matchvalue('(\d\d\.){2}\d\d');

    if s = vdata then

    begin

      var d : = datetime.parse(s);

      $'день: {d.day}{newline}месяц: {d.month}{newline}год: {d.year}'.println

    end

    else

      'дата введена не по образцу'.println

  except

    'такой даты в календаре не существует'.println

  end

end.

Популярно: Информатика