Question

Составить программы: (Паскаль)


1-Целое число М вводится с клавиатуры. Если оно неотрицательное, то увеличить его на 3. В противном случае — уменьшить на 3.


2-Дано целое число. Определить является ли оно отрицательным?

Answer 1

Ответ:

1.

program Zadacha;

var M: integer;

begin

 readln(M);

 if(M>=0) then M:=M+3

 else M:=M-3;

 writeln(M)

end.

2. program Zadacha2;

var a:integer;

begin

 read(a);

 if (a<0) then writeln('A - отрицательное')

           else('А - неотрицательное');

end.

Answer 2

1)

var M: integer;

begin

read(M);

if (M > 0) then

writeln(M+3)

else

writeln(M-3);

end.

2)

var a: longint;

begin

read(a);

if (a < 0) then

writeln( a, ' ', 'является отрицательным')

else

writeln( a, ' ', 'не является отрицательным')

end.