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

2013-04-22T15:38:25+00:00

Program HalfSum

Uses Crt; 

var a,b,tmp:real;

begin 

      clrscr;

     write('Введите первое число:');

     readln(a);    

     write('Введите второе число:');

     readln(b);

     tmp:=(a+b)/2;

     a:=tmp; 

 

    writeln(' Первое число после замены:',a); 

   readkey;

 

end.