Ввести с клавиатуры два числа. Проверить, равно ли второе число нулю. Если да, то вывести на экран фразу: «На ноль делить нельзя!» Если нет, то найти их частное.

1

Ответы и объяснения

2013-09-23T19:14:33+04:00
Var
  a, b : Integer;
begin
    Write('Введите a: ');
    Readln(a);

    Write('Введите b: ');
    Readln(b);

    if b = 0 then Writeln('На ноль делить нельзя!') else Writeln(a div b);
end.