Problema con producto a través de sumas sucesivas.

[gerupc]

Hola,

muchas gracias por tu respuesta, pero no me sirve.

Siento ser tan 'tiquismiquis' y no haberlo mencionado antes, pero no puedo usar una funcion, lo exige el problema propuesto.

A ver si me podeis echar una mano a buscar otra.....que todavia no la he encontrado!! ;-)

Un saludo,

Geru.

[gerupc]

sHola,

lo conseguí...era una tontería, lo estaba haciendo bien, el error era que el 'write(resultado) lo estaba haciendo dentro de propio bucle y claro, así no...
Aqui dejo el programita, por si a alguien que esté en un caso similar al mio, le viene bien ;-)

Código Delphi [-]
program sumas_sucesivas;

uses SysUtils;

var
        x, y: integer;
        contador: integer;
        resultado: integer;

Begin
        write('Introduce el primer numero: ');
        readln(x);
        write('Introduce el primer numero: ');
        readln(y);

        writeln('');

                resultado := 0;

                for contador := 1 to x do   //De 1 hasta x VECES
                Begin

                  resultado := resultado + y; //para asignar a resultado el valor de y, porque {0+y = y}

                End;

                write(resultado);

        Readln;
End.

Un saludo, y gracias por tu respuesta defcon1_es!! ;-)

Geru.

[[eduarcol]]

alli esta la solucion al problema fijate bien y veras q es lo q te piden

[gerupc]

Hola,

lo siento, pero no entiendo tu frase... I´m sorry

Un saludo,

Geru.