Pascal-Loopings

[celiamago 0]

Um sujeito foi ao supermercado e comprou 5 itens.Faça um programa que leia o preço pago e a quantidade comprada de cada produto e calcule o total pago no supermercado.Ao final imprima o total a ser pago. (use o loop For to do).

[gRoOvE 0]

conseguiu fazer alguma coisa ou nem tentou ?

[Mortalzera 0]

em Pascal fica assim :

 

CODE

program supermercado;

 

var a,b,soma : real;

 

Begin

 

soma := 0;

a :=0;

b :=0;

 

for i := 1 to 5 do begin

writeln('Digite a quantidade do produto de numero : ', i);

readln(a);

writeln('Digite o preço do produto de numero : ', i);

readln(B);

soma = soma + a*b;

i := i + 1;

end;

 

writeln('Total gasto foi de : $', soma);

readln;

end.