Question

Задачи Паскаль.
Даны 2 числа: a и b. Увеличить их на 7 единиц если a<b. В противном случае уменьшить в 2 раза.
Очень надеюсь на вашу помощь!!!​

Answer 1

Ответ:

Паскаль ABC Net

Объяснение:

program numbers;

var a, b:real;

x:integer;

label 10,20;

begin

 10:Writeln ('введите значение числа a');

 Readln(a);

  Writeln ('введите значение числа b');

 Readln(b);

 if a<b then

   begin

   a:=a+7;

    b:=b+7;

    end

    else

      begin

    a:=a/2;

    b:=b/2;

    end;

    Writeln ('Значение чисел a, b: ', a,' и ' ,b);

    Writeln ('Закончить программу 1-Да, 2-Нет');

     Readln(x);

         if x=1 then goto 20 else goto 10;

       

20:end.