Для 4 произвольных чисел, введенные с клавиатуры, выведите ** экран соответствующие...

Question

Для 4 произвольных чисел, введенные с клавиатуры, выведите на экран соответствующие результаты.если разностьпервых двух чисел превышает четвертое,то выведите все четыре числа без изменения. Если сумма всех чисел не больше 80, то выведите только два первых числа. Если выполняется одновременно два перечисленных выше условия, то выведите только два последних числа.Иначе, выведите все четыре числа,увеличев их на 5

Answer 1

Одна тонкость - разность первых  2-ух чисел это из первого вычитаем второе или из второго первое? 

 

Program Chisla;

Uses Crt;

var a,b,c,d,sum:real;

begin

 

     clrscr;

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

     readln(a);

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

      readln(b);     

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

      readln(c); 

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

      readln(d);

 

 

       sum:=a+b+c+d;

       if ((a-b)>d) and (sum<=80) then writeln(c,d)</p>

             else

 

                   if (a-b)>d  then writeln(a,b,c,d)

            else

                 if  (sum<=80)  then writeln(a,b)</p>

 

                    else    writeln(a+5,b+5,c+5,d+5);

     readkey;

end.