Вопрос по информатике:
Организовать беспрерывный ввод чисел с клавиатуры, пока пользователь не введёт 0. После ввода нуля, показать на экран количество чисел, которые были введены, их общую сумму и среднее арифметическое. Срочно!! В Паскале через repeat
Пожаловаться
- 13.11.2017 18:31
- Информатика
- remove_red_eye 16362
- thumb_up 20
Ответы и объяснения 1
Var
a,b,i:integer;
ar:real;
begin
b:=0;
repeat
read(a);
b:=b+a;
i:=i+1;
until a = 0;
ar:=b / i;
writeln('Количество чисел = ', i);
writeln('Общая сумма = ', b);
writeln('Cреднее арифметическое = ',ar);
end.
a,b,i:integer;
ar:real;
begin
b:=0;
repeat
read(a);
b:=b+a;
i:=i+1;
until a = 0;
ar:=b / i;
writeln('Количество чисел = ', i);
writeln('Общая сумма = ', b);
writeln('Cреднее арифметическое = ',ar);
end.
Пожаловаться
- 14.11.2017 06:31
- thumb_up 27
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы