Вывести четырёхзначное число и посчитать среднее арифметическое цифр в паскале
Вывести четырёхзначное число и посчитать среднее арифметическое цифр в паскале
Гость
Ответ(ы) на вопрос:
ГостьVar
A,S:integer;
Begin
Write('A = ');ReadLn(A);
While A<>0 do
Begin
S:=S + A mod 10;
A:=A div 10;
End;
WriteLn('S = ',S/4)
End.
Ну или так:
Var
A,S:integer;
Begin
Write('A = ');Read(A);
S:=S + A mod 10;
S:=S + (A div 10) mod 10;
S:=S + (A div 100) mod 10;
S:=S + A div 1000;
Write('S = ',S/4)
Не нашли ответ?
Похожие вопросы