Найти сумму и среднее арифметическое введённых положительных чисел

@Satine · Регистрация: 09.10.2012

Author24 — интернет-сервис помощи студентам

Осуществить ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён 0) и подсчитать их сумму и среднее арифметическое введённых положительных чисел. В одной версии использовать repeat, в другой - while.

@SladkayaVata · 21.10.2012, 20:15

Программа с использованием Repeat - Until

Pascal

Program ss;
var
  x, a: integer;
 
begin
  repeat 
    read(a);
    x := x + a;
    i:=i+1;
    until a = 0;
    writeln('Сумма= ',x);
    writeln('ср. значение ',x/i);
end.
readln;
end.

Программа с использованием While

Pascal

Program ss1;
var
  a, x: integer;
 
begin
  a := 1;
  while a <> 0 do
  begin
    readln(a);
    x := x + a;
    i:=i+1;
    end;
    writeln('Сумма=',x);
    writeln('Ср. значение=',x/i);
  readln;
end.

@Satine · 22.10.2012, 16:56 **[ТС]**

Спасибо, попробуем...

@iovomod · 07.01.2013, 18:38

В обоих циклах в переменных не указана переменная i, код не компелируется.

@Satine 0 / 0 / 0 Регистрация: 09.10.2012 Сообщений: 10
		1
	Найти сумму и среднее арифметическое введённых положительных чисел 21.10.2012, 17:00. Показов 13336. Ответов 3 Метки нет (Все метки) Осуществить ввод целых чисел (ввод осуществляется до тех пор,пока не будет введён 0) и подсчитать их сумму и среднее арифметическое введённых положительных чисел. В одной версии использовать repeat, в другой - while. 0

@Satine 0 / 0 / 0 Регистрация: 09.10.2012 Сообщений: 10
	22.10.2012, 16:56 [ТС]	3
	Спасибо, попробуем... 0

@iovomod 39 / 39 / 9 Регистрация: 05.01.2013 Сообщений: 305 Записей в блоге: 3
	07.01.2013, 18:38	4
	В обоих циклах в переменных не указана переменная i, код не компелируется. 0

Опции темы