Написать программу, определяющую модуль числа (В Паскале)

Question

Маруня

9 марта, 05:46

+2

Ответы (2)

Знаете ответ на вопрос?

Таиска · Answer 1

Var

a:integer;

begin

writeln ('Введите число') ;

readln (a) ;

b:=abs (a) ;

writeln ('Модуль этого числа ', b) ;

end.

Сильвестр · Answer 2

Var a:real;

begin

writeln ('Введите число') ;

readln (a) ;

a:=abs (a) ;

writeln ('Модуль числа равняется ', a) ;

end.