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, но должно пропустить