Question

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

Answer 1

var a, b, s, k:integer;
begin
write('a = ');
readln(a);
k:=0; s:=0;
while a>0 do
 begin
 b:=a mod 10;
 if (b=2)or(b=5) then begin k:=k+1; s:=s+b; end;
 a:=a div 10;
 end;
if k>0 
 then writeln('среднее арифметическое 2 и 5 =',s/k)
 else writeln('2 и 5 нет');
end.

Пример:
a = 23454
среднее арифметическое 2 и 5 = 3.5

Answer 2

цифры, рахряды которых равны 1 и 6