Вопрос по информатике:
Здравствуйте. Нужно написать программу на Pascal ABC Net. Суть программы такова, что нужно человеку сначала ввести n чисел, после чего программа должна сложить данные числа и эту сумму поделить на сумму чисел в числе,которое получилось в первой сумме, когда человек вводил числа.
Формула:
где sum1= сумму n чисел, которые ввёл человек
sum2=сумму чисел в числе, получившееся в результате сложения чисел, вводимых человеком.
ДАЮ 100 БАЛЛОВ ЗА НАПИСАНИЕ ТАКОЙ ПРОГРАММЫ!
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 07.02.2017 10:58
- Информатика
- remove_red_eye 19128
- thumb_up 37
Ответы и объяснения 2
begin
var n:=ReadInteger('n =');
var a:=ReadSeqInteger('Введите '+n+' чисел: ',n);
var sum1:=a.Sum;
var x:=sum1;
var sum2:=0;
while (x>0) do
begin
sum2:=sum2+x mod 10;
x:=x div 10;
end;
writeln('sum1 = ',sum1,' sum2 = ',sum2,' sum1/sum2 = ',sum1/sum2);
end.
Пример:
n = 5
Введите 5 чисел: 2 7 4 3 5
sum1 = 21 sum2 = 3 sum1/sum2 = 7
- 09.02.2017 10:57
- thumb_up 5
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.