помогите составить программу в паскале! срочно нужно! сумма трех чисел, их произведение и среднее арифметическое. пожалуйста, помогите :(

1

Ответы и объяснения

  • Kion1
  • середнячок
2013-02-13T14:01:47+00:00

Program Z1;

uses crt;

var x,a,b:integer;

begin

  Clrscr;

 

  write ('Chislo:');

  readln (x);

 

  write ('Chislo:');

  readln (a);

 

  write ('Chislo:');

  readln (b);

 

 

  s:=x+a+b;

  p:=x*a*b;

 

  h:=s/3;

 

 

  writeln (s);

  writeln (p);

  writeln (h);

  readln

end.