Question

Помогите пожалуйста Напишите программу, которая после ввода двух целых чисел делит первое число на второе и выводит на экран сообщение об остатке (если он есть) и частном (в любом случае). pascal

Answer 1

var a,b: integer;

begin

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

 readln(a);

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

 readln(b);

 if a mod b > 0 then writeln('остаток от деления=',a mod b);

 writeln('целая часть от деления=',a div b);

end.

Answer 2

Конечно, вот пример программы на языке Pascal, которая делит первое введенное число на второе и выводит частное и остаток:

pascalCopy code
program DivideNumbers;
var
  num1, num2, quotient, remainder: integer;
begin
  // Запрашиваем у пользователя ввод двух чисел
  writeln('Введите первое число: ');
  readln(num1);
  
  writeln('Введите второе число: ');
  readln(num2);
  
  // Проверяем, что второе число не равно нулю (деление на ноль невозможно)
  if num2 = 0 then
    writeln('Деление на ноль невозможно')
  else
  begin
    // Вычисляем частное и остаток
    quotient := num1 div num2;
    remainder := num1 mod num2;
    
    // Выводим результаты
    writeln('Частное: ', quotient);
    writeln('Остаток: ', remainder);
  end;
end.

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