Ответы
Ответ дал:
0
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.
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.
Похожие вопросы
2 года назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад
9 лет назад