Kamigbem
6 год назад
ДРУЗЬЯ,Пожалуйста посчитайте ПОЖАЛУЙСТА♥♥♥ отдаю все баллы, что есть))1)Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 3. Программа получает на вход кол-во чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, кратное 3. Программа должна вывести одно число- минимальное число, кратное 3.2)Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое чисел, кратных 8, или сообщает, что таких чисел нет (выводит NO). Программа получает на вход натуральные числа, кол-во введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0-признак окончания ввода, не входит в последовательность). Значение выводить с точностью до десятых.Решить на Паскале♥ Буду очень благодарна!♥♥♥
ОТВЕТЫ
Francisca
Oct 24, 2020
Var A,Min,n:longint;
Begin
Write('Количество чисел: ');ReadLn(n);
Repeat
Read(A);
n:=n-1;
Until A mod 3 = 0;
Min:=A;
For n:= n downto 1 do
Begin
Read(A);
if (A < Min)and(A mod 3 = 0) then Min:=A
End;
WriteLn(Min)
End.
Var
A,k:longint;
S:real;
Begin
k:=-1;
S:=0;
Repeat
Read(A);
if A mod 8 = 0 then
Begin
S:=S+A;
k:=k+1;
End;
Until A = 0;
if k = 0 then WriteLn('NO')
else WriteLn('Sr = ',S/k:0:1)
End.
Begin
Write('Количество чисел: ');ReadLn(n);
Repeat
Read(A);
n:=n-1;
Until A mod 3 = 0;
Min:=A;
For n:= n downto 1 do
Begin
Read(A);
if (A < Min)and(A mod 3 = 0) then Min:=A
End;
WriteLn(Min)
End.
Var
A,k:longint;
S:real;
Begin
k:=-1;
S:=0;
Repeat
Read(A);
if A mod 8 = 0 then
Begin
S:=S+A;
k:=k+1;
End;
Until A = 0;
if k = 0 then WriteLn('NO')
else WriteLn('Sr = ',S/k:0:1)
End.
261
Смежные вопросы:
