Дано многоразрядное число n< =10^9. найти среднее арифметическое цифр числа, разряды которых равны 2 и 5. p.s. я уже задавала эту , но у меня ее не приняли так как нужно через цикл
// счет разрядов от нуля справа налево: ХХХ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
Интернет – это всемирная компьютерная сеть. Она образует в результате соединения тысяч локальных компьютерных сетей (университетских, региональных и т. д. ), а так же компьютеров, подключённых к сети с отдельных каналов связи.
Интернет – это огромное информационное пространство. Благодаря объединению ресурсов миллионов компьютеров, размещённых в различных уголках земного шара, сеть Интернет даёт возможность каждому её пользователю получить доступ к необъятным информационным богатством, позволяющим узнавать самые разнообразные сведения – начиная от прогноза погоды в вашем населённом пункте в конкретное время суток и заканчивая серьёзными аналитическими статьями на самые злободневные темы. Кроме чисто информационной функции, сеть Интернет также предоставляет модем множество дополнительных возможностей, позволяющих общаться посредством текстовой, голосовой и даже видеосвязи, загружать на свой компьютер музыку и видеоролики в популярных цифровых форматах (MPEG - 4, MP3), а также многое - многое другое. Бессмысленно пытаться перечислить здесь всё, что может предоставить Интернет своим посетителям, потому что даже пользователи с многолетним стажем обязательно забудут о какой - то важной и интересной возможности – на столько гигантскими по своему количеству и уникальными по своему разнообразию являются доступные в этой сети функции.
Применение: Синонимами термина «Интернет» являются также слова и словосочетания, как «Глобальная сеть», «Всемирная сеть», «Сеть».
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