Даны два числа a и b. Найти их среднее арифметическое: (a+b)/2

Категория: Delphi/Pascal

2011-11-13 18:11:33

code: #pascal

Program Begin8;
Var
a,b:Real;
Begin
ReadLn(a,b);
WriteLn('(a+b)/2 = ',((a+b)/2):6:3);
ReadLn;
End.

автор: Sklyarov Sergej a.k.a. S9

Поделиться:

Sample Code