Дано целое число. Если оно отрицательное, то вывести ** экран его модуль, иначе...

Question

Дано целое число. Если оно отрицательное, то вывести на экран его модуль, иначе напечатать его удвоенное значение.
Пожалуйста, срочно надо❤️

Comments

Паскаль?

---

Да

Answer 1

Var A:integer;
Begin
WriteLn('Введите целое число');
ReadLn(A);
if A<0 then Write(abs(A))<br>else Write(A*2)
End.

Answer 2

Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2. Вывести полученное число.
Код Pascal1   2   3   4   5   6   7   8   9   10   11  var N: integer; begin writeln('Ведите целое число:'); readln(N); if N > 0 then N := N + 1 { <== Увеличиваем на 1 } else N := N - 2; { <== Уменьшаем N на 2 } writeln('Результат: ', N); readln end.</span>

Comments

var
N: integer;

begin
writeln('Ведите целое число:');
readln(N);
if N > 0 then N := N + 1 { <== Увеличиваем на 1 }<br> else N := N - 2; { <== Уменьшаем N на 2 }<br> writeln('Результат: ', N);
readln
end.