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

@BlackStalker · Регистрация: 26.11.2010

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

1)Найти среднее арифметическое число всех целых положительных чисел меньших 47.
2)Складіть програму для обчислення суми всіх трьохзначних чисел, кратних 25

@marshal · 19.12.2010, 16:04

1)

Pascal

program mesing;
uses crt;
var  b, c:integer;a:real;
begin
clrscr;
a:=((1+46)/2)*46;
writeln(a);
readln;end.

Это ведь в программе должно быть, как я понял?Если нет вот формула суммы ((2a1 + d(n-1))/2)*n
a1=1, так как 0 не положительное, d=1 n=46

Добавлено через 3 минуты
ой, простите, сейчас доделаю программу,что-то не заметил второе условие первой задачи

Добавлено через 3 минуты

Pascal

program mesing;
uses crt;
var  a:real;
begin
clrscr;
a:=((1+46)/2);
writeln(a);
readln;end.

Вот так, проверьте.Кстати а причём здесь цикл?

@BlackStalker 1 / 1 / 0 Регистрация: 26.11.2010 Сообщений: 15
		1
	Найти среднее арифметическое число всех целых положительных чисел меньших 47 19.12.2010, 15:39. Показов 1876. Ответов 1 Метки нет (Все метки) 1)Найти среднее арифметическое число всех целых положительных чисел меньших 47. 2)Складіть програму для обчислення суми всіх трьохзначних чисел, кратних 25 0

	19.12.2010, 16:04

Опции темы

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

Решение