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

Question

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

Гость

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

Гость

Program zadacha; var x:integer; Begin readln(x); if (x<0) then a:=abs(x) else a:=0; writeln(x); end.

Accepted Answer

var a:integer; begin readln(a); if (a<0) then a:=a*(-1) else a:=0; writeln(a); end.