Дано целое число .Напишите программу , которая уменьшает на 2 модуль этого числа и выводит на экран монитора результат.

Question

Гость

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

Гость

var n,z:longint; begin read(N); z:=abs(n); z:=z-2; writeln(z); end.

Accepted Answer

Program vvl; Var x:integer; V:real; Begin Write('x='); Readln (x); V:= abs(a)-2; Writeln ('V='; V:2:1); End.