Регистрация
зулик3
21.08.2022 02:35
Информатика
Есть ответ 👍

Найти среднюю цифру натурального числа (только для чисел с нечётным количеством цифр). написать на pascalabc.net, используя процедуру, заранее .

178
393
Посмотреть ответы 2

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

rlimiksklimukh
rlimiksklimukh
4,8(17 оценок)
Pascalabc.net 3.4.2, сборка 1864 от 11.11.2018 внимание! если программа не работает, обновите версию!

procedure средняяцифра(число: int64; var цифра: integer);

begin

  var строковоепредставление : = число.tostring;

  var числоразрядов : = строковоепредставление.length;

  var позицияцифры : = числоразрядов div 2 + 1;

  цифра : = строковоепредставление[позицияцифры].todigit

end;

begin

  var заданноечисло: int64;

  read(заданноечисло);

  var искомаяцифра: integer;

  средняяцифра(заданноечисло, искомаяцифра);

  искомаяцифра.println

end.

пример 123643523 4
asemgul101205
asemgul101205
4,4(11 оценок)
935 * 237 * 156 = 34568820 а что это (байты/килобайты и т.д) должно быть написано

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