Регистрация
Ellis2034
07.01.2020 01:58
Информатика
Есть ответ 👍

, умоляю, д/з по информатике

285
308
Посмотреть ответы 2

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

оксана755
оксана755
4,4(69 оценок)
ответ в 1: Графический, а ответ 2 на фотке)
, умоляю, д/з по информатике
виктория1332
виктория1332
4,5(16 оценок)
Pascalabc.net 3.4.2, сборка 1864 от 11.11.2018 внимание! если программа не работает, обновите версию!

begin

  var c : = readlnstring;

  if c.any(t -> not (t in ['0'..'9'])) then

  begin

    print('ошибка ввода');

    exit

  end;

  var a : = c.select(t -> t.todigit).toarray;

  writeln('a) ', c.where(t -> t = '9').count);

  writeln('б) ', a.where(t -> t = a[0]).count);

  writeln('в) ', a.where(t -> t.isodd).count);

  writeln('г) ', a.where(t -> t < 3).sum);

  writeln('д) ', a.where(t -> t.iseven and (t > 4))

      .aggregate(1, (p, q)-> p * q));

  writeln('е) ', a.where(t -> (t = 2) or (t = );

end.

пример 1764963253120 a) 1 б) 2 в) 7 г) 6 д) 36 е) 4 примечание: количество цифр в числе практически не ограничено, контроль на ввод "не-цифр" имеется.

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