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

Question

Тавифа

28 марта, 17:45

+4

Ответы (2)

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

Леонтинка · Answer 1

Var a:real;

begin

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

readln (a) ;

a:=abs (a) ;

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

end.

Патрикий · Answer 2

Var

a:integer;

begin

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

readln (a) ;

b:=abs (a) ;

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

end.