Question

Как написать в паскале 2 целых 1 разделить на 2 срочно

Answer 1

Можно так:

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

uses NumLibABC;

begin
  Writeln(Frc(2,1,2)/2)
end.

Результат
5/4

Frc(A,b,c) - это дробь A b/c
Можно писать Frc(b/c), если нет целой части.

Answer 2

В языке программирования Pascal можно разделить два целых числа следующим образом:

pascalCopy code
program DivisionExample;
var
  number1, number2, result: Integer;
begin
  // Ввод двух целых чисел
  write('Введите первое целое число: ');
  readln(number1);
  write('Введите второе целое число: ');
  readln(number2);

  // Проверка на деление на 0
  if number2 <> 0 then
  begin
    // Выполнить деление и сохранить результат
    result := number1 div number2;
    writeln('Результат деления: ', result);
  end
  else
    writeln('Ошибка: нельзя делить на 0.');

  readln;
end.

В этом коде мы сначала запрашиваем у пользователя два целых числа, а затем выполняем проверку, чтобы убедиться, что второе число не равно нулю (деление на ноль не допускается). Если второе число не равно нулю, то выполняется деление, и результат сохраняется в переменной result, которая затем выводится на экран.

Если вы используете другую версию Pascal или среду разработки, код может отличаться, но общая логика останется примерно такой же.