Question

дано целое число. если оно является положительным, то умножить его на 8, если отрицательное то прибывать 185, если нулевым, то заменить его на 35 ​

Answer 1

Ответ:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

var a: integer;

label m1;

 

  Begin

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

        ReadLn (a);

        if a = 0 Then  

               Begin  

               a:=10;

               WriteLn (a);

               Goto m1;

               End;

        if a>0 Then a:=a+1 Else a:=a-2;    

        WriteLn (a);

m1:      Readln;

  End.