Составьте программу в Паскаль АВС Для двух указанных с клавиатуры числа выполнить следующее: чётные числа умножить на 3, нечётные разделить на 4. Вид вывода должен быть:(например)
Было Стало
2 6
Составьте программу в Паскаль АВС Для двух указанных с клавиатуры числа выполнить следующее: чётные числа умножить на 3, нечётные разделить на 4. Вид вывода должен быть:(например)
Было Стало
2 6
Было Стало
2 6
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program MultiplyOrDivide;
var
num1, num2, result1, result2: integer;
begin
writeln('Введите два числа:');
readln(num1);
readln(num2);
if num1 mod 2 = 0 then
result1 := num1 * 3
else
result1 := num1 div 4;
if num2 mod 2 = 0 then
result2 := num2 * 3
else
result2 := num2 div 4;
writeln('Было Стало');
writeln(num1, ' ', result1);
writeln(num2, ' ', result2);
end.