В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
ubbdfqhdu
ubbdfqhdu
07.07.2022 22:02 •  Информатика

Дано многоразрядное число n< =10^9. найти среднее арифметическое цифр числа, разряды которых равны 2 и 5. p.s. я уже задавала эту , но у меня ее не приняли так как нужно через цикл

Показать ответ
Ответ:
beksedaniar
beksedaniar
04.10.2020 07:13
// счет разрядов от нуля справа налево: ХХХ5ХХ2ХХ
var
  n:longint;
  a,b,k,d:integer;
begin
  Write('Введите натуральное число длиной 6-9 цифр: ');
  Read(n);
  k:=0;
  while n>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
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота