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

Question

Дормидбнт

2 марта, 06:09

+4

Ответы (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.