Определить среднее арифметическое квадратов нечетных чисел от А до С

@Андрей159 · Регистрация: 22.09.2015

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

Определить среднее арифметическое квадратов нечетных чисел от а до с (значение нечетных чисел а и с задает пользователь, a <c).

@JokeR.BY · 22.09.2015, 21:49

Pascal

var
    i, c, count: Word;
    sum: LongWord;
begin
    count := 0; sum := 0;
    repeat
        Write('a='); ReadLn(i);
    until (Odd(i));
    repeat
        Write('c='); ReadLn(c);
    until ((i < c) And (Odd(c)));
    while (i <= c) do
    begin
        Inc(sum, Sqr(i));
        Inc(count);
        Inc(i, 2);
    end;
    WriteLn('avr=', (sum / count):0:3);
end.

@Андрей159 · 22.09.2015, 21:55 **[ТС]**

until (Odd(i)); - Несколько подпрограмм могут быть вызваны

@JokeR.BY · 22.09.2015, 21:58

Андрей159, щито?

@Андрей159 · 22.09.2015, 22:00 **[ТС]**

ошыбка не запускаетца

@JokeR.BY · 22.09.2015, 22:02

Андрей159, ну так не запускайте ошибку. в чём проблема.

@Андрей159 · 22.09.2015, 22:06 **[ТС]**

тоесть незапускать ошыбку без until (Odd(i)); небуде рабоатть

@JokeR.BY · 22.09.2015, 23:12

Не по теме:

ох. держите меня семеро...

если у вас древнющий билд pascal abc - то советую обновиться до актуальной версии. говорят, помогает по жизни.

@Андрей159 0 / 0 / 1 Регистрация: 22.09.2015 Сообщений: 104
		1
	Определить среднее арифметическое квадратов нечетных чисел от А до С 22.09.2015, 20:48. Показов 1343. Ответов 7 Метки нет (Все метки) Определить среднее арифметическое квадратов нечетных чисел от а до с (значение нечетных чисел а и с задает пользователь, a <c). 0

@Андрей159 0 / 0 / 1 Регистрация: 22.09.2015 Сообщений: 104
	22.09.2015, 21:55 [ТС]	3
	until (Odd(i)); - Несколько подпрограмм могут быть вызваны 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	22.09.2015, 21:58	4
	Андрей159, щито? 0

@Андрей159 0 / 0 / 1 Регистрация: 22.09.2015 Сообщений: 104
	22.09.2015, 22:00 [ТС]	5
	ошыбка не запускаетца 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	22.09.2015, 22:02	6
	Андрей159, ну так не запускайте ошибку. в чём проблема. 0

@Андрей159 0 / 0 / 1 Регистрация: 22.09.2015 Сообщений: 104
	22.09.2015, 22:06 [ТС]	7
	тоесть незапускать ошыбку без until (Odd(i)); небуде рабоатть 0

@JokeR.BY CAPITAL OF ROCK! 1281 / 708 / 982 Регистрация: 03.03.2010 Сообщений: 2,286
	22.09.2015, 23:12	8
	Не по теме: ох. держите меня семеро... если у вас древнющий билд pascal abc - то советую обновиться до актуальной версии. говорят, помогает по жизни. 0

Опции темы

Определить среднее арифметическое квадратов нечетных чисел от А до С

Решение