Question

Помогите пожалуйста На интервале от -317 до +519 найти количество чётных чисел кратных 5; сумму нечётных чисел оканчивающихся на 3; отношение этих величин. Программу надо написать в PascalABC.NET 3.8.2

Answer 1

Ответ:

Program qq;

Const

Min = -317;

Max = 519;

Var i :integer;

q1, q2:integer;

q3:real;

Begin

For i:= min to max do begin

If (i mod 2 = 0) and (i mod 5 = 0) then

Inc(q1);

If (i mod 2 = 1) and (i mod 10 = 3) then

Inc(q2);

End;

Q3:= q1/q2

End.

Объяснение:

Если результаты надо вывести, то выведи перед end.

P.S. Писал не на abc, но должно пропустить

Answer 2

Решение задачи на интервале от -317 до 519

Для решения данной задачи на интервале от -317 до 519 нам потребуется написать программу на PascalABC.NET 3.8.2, которая будет находить количество чётных чисел, кратных 5, сумму нечётных чисел, оканчивающихся на 3, и затем вычислять их отношение.

Программа на PascalABC.NET 3.8.2

program IntervalCalculations;

var
  number, evenCount, oddSum, count, i: integer;
  ratio: real;

begin
  evenCount := 0;
  oddSum := 0;
  count := 0;

for i := -317 to 519 do
  begin
    if (i mod 2 = 0) and (i mod 5 = 0) then
      evenCount := evenCount + 1;

if (i mod 2 <> 0) and (i mod 10 = 3) then
      oddSum := oddSum + i;
  end;

count := 519 - (-317) + 1; // Total count of numbers in the interval

ratio := oddSum / evenCount;

writeln('Количество чётных чисел, кратных 5: ', evenCount);
  writeln('Сумма нечётных чисел, оканчивающихся на 3: ', oddSum);
  writeln('Отношение суммы нечётных чисел к количеству чётных чисел, кратных 5: ', ratio:0:2);
end.

Объяснение программы

1. Мы используем переменные `evenCount` для подсчёта чётных чисел, кратных 5, и `oddSum` для подсчёта суммы нечётных чисел, оканчивающихся на 3. 2. Цикл `for` проходит по всем числам в интервале от -317 до 519. 3. Внутри цикла проверяется, является ли текущее число чётным и кратным 5, или нечётным и оканчивается на 3, и соответственно увеличивается `evenCount` или `oddSum`. 4. После цикла вычисляется общее количество чисел в интервале и отношение суммы нечётных чисел к количеству чётных чисел, кратных 5. 5. Результаты выводятся на экран.

Теперь у вас есть программа на PascalABC.NET 3.8.2, которая решает задачу по поиску количества чётных чисел, кратных 5, суммы нечётных чисел, оканчивающихся на 3, и вычисляет их отношение.