Question

Ребят помогите дописать прогу в паскале абс var c, s, n: integer; x,d :longint; begin writeln('введите x'); readln (x); d:=x; n:=0; while x>0 do begin c:= x mod 10; if c mod 2 =0 then n:= n+1; x:= x div 10; end; writeln ('Четных цифр в числе ',d,' = ', n ); end. Написал код а еще надо это задание чот не пойму куда его вставить-верно ли, что данная цифра А встречается в числе более двух раз ( А вводится с клавиатуры)? помогите пожалуйста

Answer 1

var c, s, n, k : integer;  

   x,d :longint;  

begin  

writeln('введите x');  

readln (x);  

k := 0;                             //количество четных цифр в числе

while x > 0 do                     //пока х не равен нолю

begin

 if (x mod 2) = 0 then k := k + 1; //проверяем четна ли последняя цифра числа

                                   //+1 к кол-ву четных цифр

 x := x div 10;                    //сокращаем на один знак и повторяем операцию

end;

if k >= 2 then  

writeln('Да')                       //если кол-во четных цифр больше 2

                                    //выводим 2, иначе не выводим ничего

end.

/* Вот написал сам, но то что пытался сделать ты не понял */

Answer 2

Для того чтобы проверить, встречается ли цифра А в числе более двух раз, можно модифицировать вашу программу следующим образом:

pascalCopy code
var
  c, s, n, A, count: integer;
  x, d: longint;

begin
  writeln('Введите x');
  readln(x);
  
  writeln('Введите цифру А');
  readln(A);

  d := x;
  n := 0;
  count := 0;

  while x > 0 do
  begin
    c := x mod 10;
    if c mod 2 = 0 then
      n := n + 1;

    if c = A then
      count := count + 1;

    x := x div 10;
  end;

  writeln('Четных цифр в числе ', d, ' = ', n);

  if count > 2 then
    writeln('Цифра ', A, ' встречается в числе более двух раз.')
  else
    writeln('Цифра ', A, ' встречается в числе не более двух раз.');
end.

В данной модификации программы я добавил новую переменную A, в которую пользователь вводит интересующую нас цифру. Также была добавлена переменная count, которая будет использоваться для подсчета количества вхождений цифры А в числе. В цикле while мы проверяем каждую цифру числа x и увеличиваем count, если она равна А.

После завершения цикла проверяем значение count. Если оно больше 2, то выводим сообщение, что цифра А встречается в числе более двух раз. В противном случае выводим сообщение, что она встречается не более двух раз.