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

Question

Аксиния

24 мая, 15:01

+4

Ответы (2)

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

Харлам · Answer 1

Program vvl;

Var x:integer;

V:real;

Begin

Write ('x=') ;

Readln (x) ;

V: = abs (a) - 2;

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

End.

Надена · Answer 2

var n, z:longint;

begin

read (N) ;

z:=abs (n) ;

z:=z-2;

writeln (z) ;

end.