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

Question

Аксиния

17 ноября, 06:25

+2

Ответы (2)

Знаете ответ?

Надена · Answer 1

var n, z:longint;

begin

read (N) ;

z:=abs (n) ;

z:=z-2;

writeln (z) ;

end.

Харлам · Answer 2

Program vvl;

Var x:integer;

V:real;

Begin

Write ('x=') ;

Readln (x) ;

V: = abs (a) - 2;

Writeln ('V='; V:2:1) ;

End.