<u>Актуальная информация</u>-<u>важна в настоящее время</u>.Пример-вечером ожидается гроза(прогноз погоды) или движение по таким-то улицам будет перекрыто,в связи с проведением демонстрации,заранее пользуйтесь маршрутами об"езда.
<u>Неактуальная информация</u> может быть <u>по-времени</u>(устаревшая)-в 2010 году открыли новый участок трассы Москва-Дон или <u>ненужной,неважной-</u>курс Швейцарского франка стабилен или а Индии восстановили движение поездов(если Вы не воспользуетесь поездами в Индии в ближайшее время,то эта информация для Вас не актуальна).
// счет разрядов от нуля справа налево: ХХХ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
Принтер, колонки, клавиатура, мышь, сканер, монитор и т.д