Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах

@Колкосан · Регистрация: 09.10.2016

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

Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах , и подсчитать количество чисел , наибольших заданного F.

@StarkKirill · 10.10.2016, 13:40

Дело в том , что немного не понятно , до какого числа нужно искать , просто пока не дать ограничение циклу , он будет считать до бесконечности.

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

Pascal

var F,D,k,j,i : integer;
begin
j:=0;
k:=0;
writeln('введите D');
readln(D);
writeln('введите F');
readln(F);
for i:= D to (F*5) do
begin
if (i mod 2 <> 0) then
k:=k+1;
if i > F then 
j:=j+1;
end;
Writeln('количество нечетных чисел = ',k,' (до ',5*F, ')');
Writeln('количество чисел больших ',F,' = ',j,' (до ',5*F,')');
end.

Ну , я решил не делать бесконечный цикл , поэтому ограничил цикл f*5 вы можете написать и больше если вам так надо.

@Колкосан 0 / 0 / 0 Регистрация: 09.10.2016 Сообщений: 10
		1
	Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах 10.10.2016, 12:43. Показов 5928. Ответов 1 Метки нет (Все метки) Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах , и подсчитать количество чисел , наибольших заданного F. 0

Опции темы

Найти среднее арифметическое чисел, больших заданного D и стоящих на нечетных местах

Решение