Решить по программе Паскаля: Ввести число.Если оно неотрицательно,вычесть из него 50,в противном случае прибаить к нему 100. If х больше 0 then у:=х-50 elseу:х+100

Question

Решить по программе Паскаля: Ввести число.Если оно неотрицательно,вычесть из него 50,в противном случае прибаить к нему 100. If х больше 0 then у:=х-50 elseу:х+100

Решить по программе Паскаля: Ввести число.Если оно неотрицательно,вычесть из него 50,в противном случае прибаить к нему 100. If х>0 then у:=х-50 elseу:х+100

Гость

Ответ(ы) на вопрос:

Гость

var x : integer; begin Write ('Введите значение x'); ReadLn (x); if x>=0 then x:=x-50 else x:=x+100 WriteLn ('Ответ: ', x) end. Если я не совсем забыла Паскаль, то все верно

Accepted Answer

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.