Question

Очень прошу помочь решить задачку по информатике!!!!! Написать программу на Pascal: "Введите два числа. Если первое число четное, вывести на экран произведение заданных двух чисел, иначе цифру 9."

Answer 1

Var a,x,z: integer;
begin
write ('X='); read (x);
write ('Z='); read (z);
if x mod 2=0 then begin
a:=x*z;
write (a);
end
else
write (9);
end.

Answer 2

Конечно, я могу помочь вам написать программу на Pascal, которая будет выполнять задачу, о которой вы спросили. Вот программа: ```pascal program CheckEven; var num1, num2, result: integer; begin // Вводим два числа с клавиатуры write('Введите первое число: '); readln(num1); write('Введите второе число: '); readln(num2); // Проверяем, является ли первое число четным if num1 mod 2 = 0 then begin // Если первое число четное, вычисляем произведение result := num1 * num2; writeln('Произведение чисел: ', result); end else begin // Если первое число нечетное, выводим 9 writeln('Первое число нечетное. Результат: 9'); end; end. ``` Эта программа запрашивает у пользователя два числа, а затем проверяет, является ли первое число четным (путем проверки остатка от деления на 2). Если первое число четное, программа вычисляет произведение двух чисел и выводит его. В противном случае программа выводит "9".