Question

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

Answer 1

Ответ:

var a,c,n: integer;

begin

read(a);

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

else n:=n+1;

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

else n:=n+1;

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

else n:=n+1;

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

else n:=n+1;

writeln(c,' ',n)

end.

Answer 2

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

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('Вы ввели неверное число. Пожалуйста, введите четырехзначное число.');
  end
  else
  begin
    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);
  end;
end.

С помощью этой программы пользователь вводит четырехзначное число, и программа подсчитывает количество четных и нечетных цифр в этом числе. Если пользователь введет число, не соответствующее условиям (не четырехзначное), программа выдаст соответствующее сообщение.