Напишите программу, которая принимает с клавиатуры число и превращает его в положительное, если оно отрицательное, либо в ноль во всех остальных случаях.

Question

Маруха

13 мая, 17:20

+2

Ответы (2)

Знаете ответ на вопрос?

Кастрихий · Answer 1

Program zadacha;

var x:integer;

Begin

readln (x) ;

if (x<0) then a:=abs (x)

else a:=0;

writeln (x) ;

end.

Илларион · Answer 2

var a:integer;

begin

readln (a) ;

if (a<0) then a:=a * (-1) else a:=0;

writeln (a) ;

end.