напишите программу которая в последовательности натуральных чисел определяет среднее арифметическое чисел кратных 3 или сообщает , что таких чисел нет. программа на вход получает натуральные числа , последовательность заканчивается при вводе 0 . (pascal)
Ответы
Ответ дал:
0
Var
A,S,N:integer;
Begin
WriteLn('Введите числа');
S:=0;
N:=-1;
Repeat
Read(A);
if A mod 3 = 0 then
Begin
S:=S+A;
N:=N+1;
End
Until A=0;
WriteLn(S/N);
End.
A,S,N:integer;
Begin
WriteLn('Введите числа');
S:=0;
N:=-1;
Repeat
Read(A);
if A mod 3 = 0 then
Begin
S:=S+A;
N:=N+1;
End
Until A=0;
WriteLn(S/N);
End.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
9 лет назад