Компьютер выводит среднее арифмитическое число не оканчивающееся на 5 и на 8. Помогите решить!
Answers & Comments
DarkAngel14
Var s,n,k:integer; begin Writeln('введите натуральные числа, 0 - окончание ввода'); k:=0; s:=0; repeat Read(n); if n<>0 then if n mod 10 = 8 then begin k:=k+1; s:=s+n end until n=0; if k>0 then Writeln(s/k:0:4) else Writeln(0) end.
Answers & Comments
s,n,k:integer;
begin
Writeln('введите натуральные числа, 0 - окончание ввода');
k:=0; s:=0;
repeat
Read(n);
if n<>0 then
if n mod 10 = 8 then begin k:=k+1; s:=s+n end
until n=0;
if k>0 then Writeln(s/k:0:4)
else Writeln(0)
end.
Пример
введите натуральные числа, 0 - окончание ввода
34 17 8 32 1424 28 7 0
18.0000