Создайте программу пешения зажачи.Дано 2 числа a и b.Если a положительное число,то вычислить произведение чисел a и b,иначе вычислить их частное.Напечатать результат
Создайте программу пешения зажачи.Дано 2 числа a и b.Если a положительное число,то вычислить произведение чисел a и b,иначе вычислить их частное.Напечатать результат
Гость
Ответ(ы) на вопрос:
Гость//Pascal
var a, b:integer;
begin
readln(a,b);
if a>0 then writeln(a*b);
if (a<0) and (b<>0) then writeln(a/b)
else if (a<0) and (b=0) then writeln('Делить на 0 нехорошо!');
end.
Не нашли ответ?
Похожие вопросы