Question

Помогите с дз по инфе, пожалуйста.
Дано целое число А (оно вводится с клавиатуры), если оно меньше нуля, то умножить его на 2. Если число больше нуля, то разделить на 2. А если равно нулю, то прибавить 5.

Answer 1

Ответ:

Объяснение:

Во вложении

Answer 2

Ответ: Проверено

program hhh;

var

 a: integer;

begin

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

 Readln(a);

 begin

   if a < 0 then

     writeln('Ответ ', a * 2, ';' ) end ;

   begin

     if a > 0 then

       Writeln('Ответ ', a / 2, ';' ) end ;

     begin

       if a = 0 then

         Writeln('Ответ ', a + 5, ';' ) ;

     end;

   end.