TOPIC
Não acho erros, fiz vários testes!
jcaique asked 3 years ago
program somaDeImparURI1071;
uses Math, sysutils;
var x,y,i,soma : Integer; begin
readln(x,y);
if (y < x) then
begin
i := x;
x := y;
y := i;
end;
for i:= x+1 to y-1 do
begin
if (i mod 2 <> 0) then
begin
soma := soma + i;
end;
end;
writeln(soma);
end.
This topic has not been answered yet. Be the first!