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

Ответы 2

  • var a:integer;

    begin

    readln(a);

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

    writeln(a);

    end.

  • Program zadacha;

    var x:integer;

    Begin

    readln(x);

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

                 else a:=0;

    writeln(x);

    end.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years