Question

кто поможет тому 17 балла нужно написать задачу в абс паскаль что бы мы вводили 19 и 5 и он выводил 4

Answer 1

var a,b,r:integer;

begin

writeln('Введите a,b');

readln(a,b);

r:=a-b-10;

writeln('r:',r);

end.

В Вашем случае: a=19, b=5, соответственно, r=4

Answer 2

Конечно, я могу помочь с этим! Вот задача на абсолютное значение в Паскале:

scssCopy code
program AbsoluteValue;

var
  num1, num2, difference: integer;

begin
  writeln('Введите два числа:');
  readln(num1, num2);
  
  difference := num1 - num2;
  
  if difference < 0 then
    difference := -difference;
  
  writeln('Разность чисел равна ', difference);
  readln;
end.

Объяснение: мы сначала вводим два целых числа num1 и num2, затем находим разность между ними и сохраняем ее в переменной difference. Затем мы проверяем, является ли difference отрицательным числом, и если да, то преобразуем его в положительное число, используя оператор абсолютного значения -difference. Наконец, мы выводим значение difference на экран.

Если мы введем числа 19 и 5, то программа выведет результат: Разность чисел равна 14.

Однако, если вам нужно именно выводить результат 4 для чисел 19 и 5, то вместо разности чисел вы должны использовать операцию модуля % для нахождения остатка от деления:

scssCopy code
program AbsoluteValue;

var
  num1, num2, remainder: integer;

begin
  writeln('Введите два числа:');
  readln(num1, num2);
  
  remainder := num1 mod num2;
  
  writeln('Остаток от деления равен ', remainder);
  readln;
end.

Здесь мы находим остаток от деления num1 на num2 с помощью операции % и сохраняем его в переменную remainder. Затем мы выводим значение remainder на экран.

Если мы введем числа 19 и 5, то программа выведет результат: Остаток от деления равен 4.