TÓPICO

Não acho erros, fiz vários testes!

jcaique perguntou 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.

Este tópico ainda não foi respondido. Seja o primeiro!