Nalmezar
5 год назад
ПОМОГИТЕ!!! ОЧЕНЬ НАДО!!!
Дано многоразрядное число N< = 10^9. Найти среднее арифметическое цифр числа, разряды которых равны 2 и 5.
используя цикл
ОТВЕТЫ
Seesdazom
Aug 8, 2019
Var a, b, s, k:integer;
begin
write(a = );
readln(a);
k:=0; s:=0;
while agt;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 kgt;0
then writeln(среднее арифметическое 2 и 5 =,s/k)
else writeln(2 и 5 нет);
end.
Пример:
a = 23454
среднее арифметическое 2 и 5 = 3.5
begin
write(a = );
readln(a);
k:=0; s:=0;
while agt;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 kgt;0
then writeln(среднее арифметическое 2 и 5 =,s/k)
else writeln(2 и 5 нет);
end.
Пример:
a = 23454
среднее арифметическое 2 и 5 = 3.5
77