ПОМОГИТЕ!!! ОЧЕНЬ НАДО!!!Дано многоразрядное число Namp;lt;=10^9. Отыскать среднее арифметическое

ПОМОГИТЕ!!! ОЧЕНЬ НАДО!!!
Дано многоразрядное число Nlt;=10^9. Найти среднее арифметическое цифр числа, разряды которых одинаковы 2 и 5.
P.S. Я теснее задавала эту задачку, но у меня ее не приняли так как необходимо через цикл

Задать свой вопрос
Василий Латонин
то есть через цикл её не решить?
Эльвира Сырнева
ну вот учитель считает, что надобно вынудить
Regina
но у меня не один цикл не идёт
Эвелина Тазетдинова
либо я что-то не то делаю
Даниил Тонкокоженко
А можешь хоть кривую программку написать, пожалуйста?
Ева Магарамова
Эникий, можешь помочь написать эту кривую программку?
Арсений Кривилев
жалко
1 ответ
// счет разрядов от нуля справа влево: ХХХ5ХХ2ХХ
var
  n:longint;
  a,b,k,d:integer;
begin
  Write('Введите натуральное число длиной 6-9 цифр: ');
  Read(n);
  k:=0;
  while ngt;0 do begin
    d:=n mod 10;
    if k=2 then a:=d
    else
      if k=5 then b:=d;
    Inc(k);
    n:=n div 10
    end;
  Writeln('Ср. арифм. разрядов 2 и 5 равно ',(a+b)/2)
end.

Пример
Введите естественное число длиной 6-9 цифр: 123456789
Ср. арифм. разрядов 2 и 5 одинаково 5.5
Danil Rahmangulov
спасибо огромное)))
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт