Помогите пожалуйста
На интервале от -317 до +519 найти количество чётных чисел кратных 5; сумму нечётных чисел оканчивающихся на 3; отношение этих величин.
Программу надо написать в PascalABC.NET 3.8.2
На интервале от -317 до +519 найти количество чётных чисел кратных 5; сумму нечётных чисел оканчивающихся на 3; отношение этих величин.
Программу надо написать в PascalABC.NET 3.8.2
Ответ
0
(0 оценок)
0
Ответ:
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, но должно пропустить