TEMA

WA 20% Pascal

João Paulo Freitas preguntado 11 months 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!

Recuerda no enviar soluciones. Tu mensaje puede ser revisado por nuestros moderadores.