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

Узнай цену своей работы

Формулировка задачи:

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

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

textual
Листинг программы
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.

Объяснение кода листинга программы

  1. Создаются переменные F, D, k, j, i, которые будут использоваться для выполнения вычислений.
  2. Устанавливаются начальные значения для переменных k и j.
  3. Пользователю предлагается ввести значение D и F.
  4. В цикле от D до (F*5) происходит следующее:
    • Если число i нечетное (i mod 2 <> 0), то переменная k увеличивается на 1.
    • Если i больше F, то переменная j увеличивается на 1.
  5. Выводится количество нечетных чисел, которое равно k, и количество чисел, больших F, которое равно j.
  6. Программа завершается.

Оцени полезность:

5   голосов , оценка 4.2 из 5
Похожие ответы