Вывести на экран большее из двух чисел a,b, если а+b>0, и их разность и произведение в противном случае. - Pascal ABC

Формулировка задачи:

Вывести на экран большее из двух чисел a,b, если а+b>0, и их разность и произведение в противном случае.

Код к задаче: «Вывести на экран большее из двух чисел a,b, если а+b>0, и их разность и произведение в противном случае. - Pascal ABC»

textual
uses crt;
var
a,b:real;
Begin
write('Vvedite A: ');
 readln(a);
write('Vvedite B: ');
 readln(b);
if a+b>0 then
 Begin
  if a>b then write('Boshee chislo: ',a);
  if b>a then write('Boshee chislo: ',b);
  if a=b then write('Chisla ravny');
 end;
if A+b<0 then
 Begin
  writeln('Raznost`=',a-b);
  writeln('Proizvedenie=',a*b);
 end;
if a+b=0 then write('Usloviem zadachi takogo ne predusmotreno');
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

5   голосов, оценка 4.400 из 5


СДЕЛАЙТЕ РЕПОСТ