Question

Написать программу на языке Паскаль для решения следующей задачи: Дано четырехзначное число, которое вводится с клавиатуры пользователем. Посчитать количество четных и нечетных цифр во введенном числе не списывать с других иточников!

Answer 1

Ответ:

var a,k2,k1: integer;

begin

k2:=0;

k1:=0;

read(a);

if a mod 10 mod 2 = 0 then k2:=k2+1

else k1:=k1+1;

if a div 1000 mod 2 = 0 then k2:=k2+1

else k1:=k1+1;

if a div 10 mod 10 mod 2 = 0 then k2:=k2+1

else k1:=k1+1;

if a div 100 mod 10 mod 2 = 0 then k2:=k2+1

else k1:=k1+1;

write(k2,' ',k1)

end.

Answer 2

Вот пример программы на языке Паскаль, которая позволяет пользователю ввести четырёхзначное число и затем подсчитывает количество четных и нечетных цифр в этом числе:

pascalCopy code
program CountEvenOddDigits;
var
  number, digit, evenCount, oddCount: integer;
begin
  evenCount := 0;
  oddCount := 0;
  
  writeln('Введите четырёхзначное число: ');
  readln(number);
  
  if (number < 1000) or (number > 9999) then
  begin
    writeln('Введенное число не является четырёхзначным.');
    readln;
    exit;
  end;
  
  while number > 0 do
  begin
    digit := number mod 10;
    
    if digit mod 2 = 0 then
      evenCount := evenCount + 1
    else
      oddCount := oddCount + 1;
      
    number := number div 10;
  end;
  
  writeln('Количество четных цифр: ', evenCount);
  writeln('Количество нечетных цифр: ', oddCount);
  
  readln;
end.

Эта программа сначала проверяет, является ли введенное число четырёхзначным. Затем она разбивает число на цифры и подсчитывает количество четных и нечетных цифр. Результат выводится на экран.