Найти сумму,разность и произведение любых пяти чисел от 0 до 999 a:=a1*a2*a3*a4*a5...

Question

Найти сумму,разность и произведение любых пяти чисел от 0 до 999
a:=a1*a2*a3*a4*a5
b:=a1+a2+a3+a4+a5
c:=a1-a2-a3-a4-a5

Answer 1

program pr;
uses crt;
Var rand,b,c,i:integer;   
      a:real;

Begin

i:=1;
a:=random(1000);
Write('a = ',a);

repeat
rand:=random(1000);
Write(' * ',rand);
a:=a*rand;
i:=i+1;
until (i=5);

Write(' = ',a);
Writeln;


i:=1;
b:=random(1000);
Write('b = ',b);

repeat
rand:=random(1000);
Write(' + ',rand);
b:=b+rand;
i:=i+1;
until (i=5);

Write(' = ',b);
Writeln;



i:=1;
c:=random(1000);
Write('c = ',c);

repeat
rand:=random(1000);
Write(' - ',rand);
c:=c-rand;i:=i+1;
until (i=5);

Write(' = ',c);
Writeln;

end.

---