Question

Написать программу, которая просит пользователя ввести 3 целых числа, а затем выводит сумму, разность и частное этих чисел. Частное - вещественное число. Напишите пж в паскале ABC. Заранее благодарен.

Answer 1

Ответ:

var

 x1,x2,x3:integer;

begin

 read(x1,x2,x3);

 writeln(x1+x2+x3);

 writeln(x1-x2-x3);

 write(x1/x2/x3);

end.

Answer 2

Конечно, вот пример программы на языке Паскаль ABC, которая выполняет описанные вами операции:

pascalCopy code
program Calculator;

var
  num1, num2, num3: Integer;
  sum, difference: Integer;
  quotient: Real;

begin
  writeln('Введите три целых числа:');
  readln(num1);
  readln(num2);
  readln(num3);
  
  sum := num1 + num2 + num3;
  difference := num1 - num2 - num3;
  quotient := num1 / num2 / num3;
  
  writeln('Сумма: ', sum);
  writeln('Разность: ', difference);
  writeln('Частное: ', quotient:0:2);
  
  readln;
end.

При запуске программы она запросит у пользователя ввод трех целых чисел, а затем выведет сумму, разность и частное этих чисел. Обратите внимание, что операция деления возвращает вещественное число, поэтому мы используем тип Real для переменной quotient. Форматирование :0:2 указывает на вывод числа с двумя знаками после запятой.