Ребят помогите дописать прогу в паскале абс var c, s, n: integer; x,d :longint; begin...

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. Написал код а еще надо это задание чот не пойму куда его вставить-верно ли, что данная цифра А встречается в числе более двух раз ( А вводится с клавиатуры)? помогите пожалуйста

Comments

Обьязательно паскаль?

---

var x, k, n : integer;beginwriteln('введите x');readln (x);n := 0;k := 0;while x > 0 dobeginif (x mod 2) = 0 then k := k + 1;x := x div 10;end;if k >= 2 thenwriteln(k, ' Да')elsewriteln(k, ' Нет');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.

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

Comments

Стой вот

---

1.Дано натуральное число:-найти количество четных цифр числа;-верно ли, что данная цифра А встречается в числе более двух раз ( А вводится с клавиатуры)?

---

Полное задание

---

Я написал для 1 ого

---

А для 2 ого не могу понять)

---

var x, k, n : integer;beginwriteln('введите x');readln (x);n := 0;k := 0;while x > 0 dobeginif (x mod 2) = 0 then k := k + 1;x := x div 10;end;if k >= 2 thenwriteln(k, ' Да')elsewriteln(k, ' Нет');end.

---

держи