Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.