Question

Даны два числа.посчитать сколько среди них четных. Составить программу паскаль

Answer 1

program number1;

var a,b,k: integer;

Begin

writeln('Введите 1-ое число');

readln(a);

writeln('Введите 2-ое число');

readln(b);

if a mod 2=0 then k:=k+1;

if b mod 2=0 then k:=k+1;

writeln('Чётных чисел: ',k);

End.

Answer 2

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

pascalCopy code
program CountEvenNumbers;

var
  num1, num2, evenCount: integer;

begin
  evenCount := 0;

  writeln('Введите первое число: ');
  readln(num1);

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

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

  writeln('Среди введенных чисел ', evenCount, ' четных чисел.');
  readln;
end.

Эта программа сначала объявляет две переменные (num1 и num2), в которых мы сохраняем введенные числа, и переменную evenCount для подсчета четных чисел. Затем программа запрашивает у пользователя ввод двух чисел. Далее она проверяет каждое число на четность с помощью оператора mod. Если число делится на 2 без остатка, оно считается четным, и evenCount увеличивается на 1. Наконец, программа выводит количество четных чисел на экран.

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