Question

Запишите программу на языке Турбо Паскаль вычисления суммы, если a > b в противном случае вычисляет частное.​

Answer 1

var a,b,c: real;

begin

 readln(a,b);

 if a>b then c:=a+b else c:=a/b;

 write(c)

end.