Question

Помогите сделать в паскале. Введите с клавиатуры 2 числа.Напечатать их частное или сообщение"Делить на ноль нельзя".

Answer 1

Program lol;
var a,b:integer; c : real;
begin
readln(a,b);
if(a = 0) or (b = 0) then writeln('NO')
else
begin
c:= a / b;
writeln(c);
end;
 readln;
end.

Answer 2

Конечно! Вот пример программы на языке Паскаль, которая позволяет вводить два числа с клавиатуры и выводит их частное или сообщение "Делить на ноль нельзя", если второе число равно нулю:

pascalCopy code
program Division;

var
  num1, num2, quotient: real;

begin
  writeln('Введите два числа:');
  readln(num1, num2);

  if num2 <> 0 then
  begin
    quotient := num1 / num2;
    writeln('Частное чисел: ', quotient);
  end
  else
    writeln('Делить на ноль нельзя.');

  readln;
end.

Программа сначала запрашивает у пользователя ввод двух чисел. Затем она проверяет, равно ли второе число нулю. Если нет, то программа вычисляет частное и выводит его. В противном случае программа выводит сообщение о невозможности деления на ноль.

Обратите внимание, что в этом примере используется тип данных real для чисел с плавающей запятой. Вы можете изменить его на integer, если хотите работать только с целыми числами.