Question

СРОНО ДАЮ 20 БАЛОВ
Користувач вводить ціле число, програма знаходить модуль числа
пОДСКАЗКА
program modyl;
var a:integer;
begin
writeln ('введи ціле число');
read (a);
if (a>0) ... (a=0) then writeln () else writeln ();
end.

Answer 1

Ответ:

Это задание можно решить двумя способами. Если вам нужно следовать подсказке, то для получение искомого результата используйте этот вариант:

program modyl;
var a : integer;
begin
   writeln ('введи ціле число');
   read (a);
   if (a > 0) or (a = 0) then
       writeln(a)
   else
       writeln(-1 * a);
end.

Однако, это не лучший вариант. Во первых, логическое выражение
(a > 0) or (a = 0) можно упростить до (a >= 0), во вторых, лучше воспользоваться готовой функцией нахождения модуля abs(). Код с использованием этой функции короче, и легче читается.

program modyl;
var a : integer;
begin
   writeln('введи ціле число');
   read (a);
   writeln(abs(a));
end.