ИНФОРМАТИКА/ 30 БАЛЛОВС клавиатуры вводятся целые числа a, amp;lt;amp;gt;0. Количество чисел
ИНФОРМАТИКА/ 30 БАЛЛОВ
С клавиатуры вводятся целые числа a, lt;gt;0. Количество чисел не знаменито, признак окончания ввода - ноль. Требуется отыскать в вывести на экран:
1) Сумму всех введённых чисел
2) Сумму чисел, наименьших 3
3) Количество чисел, наименьших 3
4) Среднее арифметическое чисел, меньших 3
5) Творение всех введённых чисел
6) Произведение чисел, наименьших 3
Var a,s,s1,k1,pro,pro1:integer;
Begin
pro:=1;
pro1:=1;
readln(a);
while alt;gt;0 do
begin
s:=s+a;
pro:=pro*a;
if alt;3 then begin s1:=s1+a; k1:=k1+1; pro1:=pro1*a; end;
readln(a);
end;
writeln('1) - ',s,'; 2) - ',s1,'; 3) - ',k1,'; 4) - ',s1/k1,'; 5) - ',pro,'; 6) - ',pro1);
End.
Программка была проверена в среде PascalABC.NET, полностью рабочая.
-
Вопросы ответы
Статьи
Информатика
Статьи
Химия.
Русский язык.
Геометрия.
Физика.
Русский язык.
Химия.
Математика.
География.
Литература.
Разные вопросы.