| valintinvalic2011 a întrebat:

Buna se pricepe cineva in pascal?
vreau sa fac ca sa il adune pe 'a' de 'n' ori
adica
daca 'n'=5 sa fie c:=a+a+a+a+a
daca 'n'=2 sa fie c:=a+a;
si fara instructiunea if
pentru ca nu asa fac asa
if n=2 then c:=a+a;
if n=4 then c:=a+a+a+a;
pentru ca daca n=60 ce asa fac if n=60 then c:=a+a+a...+a de 60 ori
si asa de multe ori trebuie dar trebuie sa fie alt ceva care eu nu stiu

Răspuns Câştigător
anonim_4396
| anonim_4396 a răspuns:

Var a, b, suma: integer;
begin
write('Dati a: '); readln(a);
write('Dati b: '); readln(b);
suma := 0;
For b := 1 To b Do
suma := suma + a;
write('Suma este ', suma);
readln;
end.