Решить по программе Паскаля: Ввести число.Если оно неотрицательно,вычесть из него 50,в...

Question

Решить по программе Паскаля:

Ввести число.Если оно неотрицательно,вычесть из него 50,в противном случае прибаить к нему 100.

If х>0 then у:=х-50 elseу:х+100

Answer 1

program sdd;

uses crt;

var x:integer;

begin

clrscr;

write('x=');

readln(x); 

if x>0 then x:=x-50

else x:=x+100;

writeln(x);

readkey;

end. 

 

Answer 2

var

x : integer;

begin

Write ('Введите значение x');

ReadLn (x);

if x>=0 then x:=x-50 else x:=x+100

WriteLn ('Ответ: ', x)

end.

 

Если я не совсем забыла Паскаль, то все верно