Даны два целых числа М и К (Integer для ABC Pascal). Если они оба неотрицательны, то умножить их на 10. Если неотрицательно одно из них, то умножить их на 100. Если они оба отрицательны, то умножить их на 1000.
Пример: 8,7 результат 80,70
-2,3 результат-200,300
Даны два целых числа М и К (Integer для ABC Pascal). Если они оба неотрицательны, то умножить их на 10. Если неотрицательно одно из них, то умножить их на 100. Если они оба отрицательны, то умножить их на 1000.
Пример: 8,7 результат 80,70
-2,3 результат-200,300
Пример: 8,7 результат 80,70
-2,3 результат-200,300
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Пример решения на ABC Pascal:
Program MultiplyNumbers;Var
M, K: Integer;
Begin
Write('Введите два числа M и K: ');
Readln(M, K);
If (M >= 0) and (K >= 0) then
Writeln('Результат: ', M * 10, ', ', K * 10)
Else If (M >= 0) or (K >= 0) then
Writeln('Результат: ', M * 100, ', ', K * 100)
Else
Writeln('Результат: ', M * 1000, ', ', K * 1000);
End.
Пользователь вводит два целых числа M и K. Программа проверяет условия по отношению к этим числам и выводит результат умножения в соответствии с условиями из условия.