Ввести с клавиатуры два числа. Проверить, равно ли второе число нулю.
Если да, то вывести на экран фразу: «На ноль делить нельзя!» Если нет,
то найти их частное.
Ответы
Ответ дал:
0
uses crt;
var a,b:real;
begin
read(a,b);
if a=0 then write ('Na 0 delit nelzya')
else begin a:= ab; write (a); end;
end.
var a,b:real;
begin
read(a,b);
if a=0 then write ('Na 0 delit nelzya')
else begin a:= ab; write (a); end;
end.
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
10 лет назад