TEMA
WA 20% Pascal
jpfreitas0 preguntado 3 years ago
Estou tendo o erro de WA, porém não consigo encontrar o erro. Segue código abaixo:
Program uri1099;
var tot_entradas, num1, num2, cont, soma_imp, aux : integer;
Begin
readln(tot_entradas);
soma_imp := 0;
while tot_entradas > 0 do
begin
readln(num1, num2);
if num1 > num2 then
begin
aux := num1;
num1 := num2;
num2 := aux;
end;
for cont := num1 to num2 do
begin
if (cont mod 2 = 1) and (cont > num1) and (cont < num2) then
soma_imp := soma_imp + cont;
end;
writeln(soma_imp);
soma_imp := 0;
tot_entradas := tot_entradas - 1;
end;
readln;
End.
Este tema aún no ha sido contestado. ¡Sé el primero!