Question

Pascal. С клавиатуры вводится 3 числа. определить сколько из них четных.

Answer 1

Var
A,B,C,n:integer;
Begin
WriteLn('Введите три целых числа');
ReadLn(A,B,C);
n:=0;
if A mod 2 = 0 then N:=N+1;
if B mod 2 = 0 then N:=N+1;
if C mod 2 = 0 then N:=N+1;
WriteLn(N)
End.

Answer 2

Конечно, давайте напишем программу на языке Pascal, которая считывает с клавиатуры три числа и определяет, сколько из них четных. Ниже приведен пример кода:

program CheckEvenNumbers;

var
  num1, num2, num3: integer;
  evenCount: integer;

begin
  // Вводим три числа с клавиатуры
  write('Введите первое число: ');
  readln(num1);

write('Введите второе число: ');
  readln(num2);

write('Введите третье число: ');
  readln(num3);

// Инициализируем счетчик четных чисел
  evenCount := 0;

// Проверяем каждое число на четность
  if num1 mod 2 = 0 then
    evenCount := evenCount + 1;

if num2 mod 2 = 0 then
    evenCount := evenCount + 1;

if num3 mod 2 = 0 then
    evenCount := evenCount + 1;

// Выводим результат
  writeln('Количество четных чисел: ', evenCount);

end.

В этом примере программы мы используем переменные `num1`, `num2` и `num3` для хранения введенных чисел, а также переменную `evenCount` для подсчета четных чисел. Мы используем оператор `mod` для определения четности числа (если результат операции `mod` равен 0, то число четное).

Программа последовательно проверяет каждое из введенных чисел и увеличивает счетчик `evenCount` при обнаружении четного числа. В конце программа выводит количество четных чисел.