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

@dreglyanastya19 · Регистрация: 26.04.2015

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

И как самим проверить
объясните а то у нас препод всегда заставляет нас проверять самим

@ZX Spectrum-128 · 26.04.2015, 11:36

(С) ermolay

Pascal

var
  i,k,a,b: integer;
  sum:real;
begin
  sum:=0;
  readln(a,b);
  k:=0;
  for i:=a to b do
    if i mod 3 = 0 then
      begin
        sum:=sum+i;
        k:=k+1;
        write(i:3); // числа по условию 
      end;
  writeln;
  writeln('Среднее арифметическое целых двузначных чисел: ',sum/k:8:2);
  readln;
end.

Проверить легко. Вводите интервал: 10..15. Чисел, кратных 3 - 2 (12,15). Складываете и делите на 2. Получаете 13.5

@dreglyanastya19 0 / 0 / 0 Регистрация: 26.04.2015 Сообщений: 1
		1
	Найти среднее арифметическое двузначных чисел из заданного промежутка кратных трем 26.04.2015, 09:47. Показов 3957. Ответов 1 Метки нет (Все метки) И как самим проверить объясните а то у нас препод всегда заставляет нас проверять самим 0

Опции темы

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

Решение