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.