Регистрация
bogodist68
01.06.2022 19:23
Информатика
Есть ответ 👍

Дан массив Т1…T13. Посчитать количество отрицательных элементов массива с четными индексами (n

). Если n<7 все элементы с нечетными индексами

увеличить на 10, иначе все элементы с четными индексами

умножить на n
На Delphi

196
426
Посмотреть ответы 1

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

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.

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