Ввести с клавиатуры два числа. Проверить, равно ли второе число нулю.

Если да, то вывести на экран фразу: "На ноль делить нельзя!" Если нет,

то найти их частное.

Question

Мура

17 декабря, 04:00

+4

Ответы (1)

Знаете ответ?

Дарьюшка · Answer 1

Uses crt;

var a, b:real;

begin

read (a, b) ;

if a=0 then write ('Na 0 delit nelzya')

else begin a: = a/b; write (a) ; end;

end.

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