Отношение четных чисел к кратным 5 из промежутка -n до n напишите программу!...

Question

Отношение четных чисел к кратным 5 из промежутка -n до n
напишите программу! пожалуйста!!!!! ооочень нужноооо

Answer 1

Var
n,i,kolCH,kolKR5:integer;
begin
readln(n);
kolCH:=0; //Кол-во четных чисел
kolKR5:=0;//Кол-во чисел кратных 5
for i:=-n to n do
begin
if (i mod 2=0) then //Проверка на четность
kolCH:=kolCH+1;
if (i mod 5=0) then //Проверка на делимость на 5
kolKR5:=kolKR5+1;
end;
writeln('Четных чисел=',kolCH,' Кратных 5 чисел=',kolKR5);
writeln('Отношение=',kolCH/kolKR5);
end.

Comments

спасибо! а ты не можешь поставить крсные строки, пожапожалуйста!!

---

что за красные строки?

---

прости, но нужно через for только! поможешь?

---

через if нельзя

---

у меня сделано через for

---

через if нельзя, можно испольщовать только for

---

сможешь??