Цитата:
Сообщение от QWARTAL
2. Если среднее арифмитическое двух введённых с клавиатуры чисел превышает второе из них,то вычислить произведение введённых чисел.В противном случае произвести вычисление их частного
|
Код:
var a,b,sa,c:real;
begin
readln(a);
readln(b);
sa:=(a+b)/2;
If sa>b then c:=a*b else c:=a/b;
writeln(c:2:2);
readln;
end.
Вроде так.
Лучше бы написал в эту тему.
(нажать сюда)