Question

Пользователь вводит 2 числа,если 1 число четное ,то его нужно умножить на 2 ,если нечетное,то умножить на 4.Вывести на экран.Программа Паскаль.

Answer 1

Ответ:Прикола с двумя числами не понял, если по итогу второе число не применяют!

var a,b,c:int64;

begin

readln(a);

b:=a mod 2;

if b = 0 then c:=a*2

else c:=a*4;

writeln('Итоговое число: ',c);

end.

Answer 2

Вот пример программы на языке Pascal, которая реализует указанное условие:

pascalCopy code
program MultiplyByCondition;
var
  num1, num2: integer;

begin
  writeln('Введите два числа:');
  readln(num1);
  readln(num2);

  if num1 mod 2 = 0 then
    num1 := num1 * 2
  else
    num1 := num1 * 4;

  if num2 mod 2 = 0 then
    num2 := num2 * 2
  else
    num2 := num2 * 4;

  writeln('Результат для первого числа: ', num1);
  writeln('Результат для второго числа: ', num2);
end.

В этой программе пользователь вводит два числа, и для каждого числа проверяется, является ли оно четным или нечетным. В зависимости от результата умножается на 2 или на 4, как указано в условии, и выводится на экран.