Question

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

Answer 1

program CrazyCoder;
var  a, b: integer;  c: real;
begin  readln(a, b);  if(a = 0) or (b = 0) then writeln('Делить на ноль нельзя!')  else  begin    c := a / b;    writeln(c);  end;  readln;end.

Answer 2

Табулатура постоянно добивает

Answer 3

program CrazyCoder;
var
a, b: integer;
c: real;
begin
readln(a, b);
f(a = 0) or (b = 0) then writeln('Делить на ноль нельзя!')
else
begin
c := a / b;
writeln(c);
end;
readln;
end.