Question

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

Answer 1

program f1;
var i,n,t,y: integer;
s;real;
begin
read(n);
for i:=-n to n do begin
 if  i mod 2=0  then y:=i;
if i mod 5 =0 then t:=i ;
s:=y/t;
writeln(s);
end.