Ищете решения задач? Наш сайт поможет решить любую задачу онлайн.
0 голосов
uses Crt;

var n,x1,x2 : real;

begin

    writeln('Введите любое целое число');

   readln(n);

    begin

   if NOT odd(n)then

    x1:= n/2;

       writeln('x1 =',x1);

      end

        else

        x2:=(n*3)+1;

    writeln('x2 =',x2);

   

    

   end.
от в категории Информатика

1 Ответ

0 голосов

А если так?

uses Crt;

var n,x1,x2 : real;

begin

    writeln('Введите любое целое число');

   readln(n);

    begin

   if NOT odd(n)then

    x1:= n/2;

       writeln('x1 =',x1);

      else

        x2:=(n*3)+1;
end;
    writeln('x2 =',x2);

   end.

от
...