Ребят, помоги в паскале. напишите программу которая вводит с клавиатуры числа до тех пор пока не будет введено число 0. В конце работы программы на экран выводится сумма и произведение введенных чисел.

ех пор пока не будет введено число 0. В конце работы программы на экран выводится сумма и произведение введенных чисел.

  • 13-04-2007 07:24
  • Просмотры: 8
Ответы ( 1 )
ДАНИЛ МАСЛОВ
+1
13-04-2007 16:26

Var a,s,p:integer; begin p:=1; read(a); if(a=0) then p:=0; while(a<>0)do begin   s+=a;   p*=a;   read(a);  end; writeln(s, , p); end.