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

Ребят помогите дописать прогу в паскале абс

var c, s, n: integer; x,d :longint;
begin
writeln('введите x');
readln (x);
d:=x;
n:=0;
while xgt;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.
Написал код а еще надо это задание чот не пойму куда его воткнуть-верно ли, что данная цифра А встречается в числе более 2-ух раз ( А вводится с клавиатуры)? помогите пожалуйста

Задать свой вопрос
Vladik Spirkov
Обьязательно паскаль?
Тетекин Владислав
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.
1 ответ

var c, s, n, k : integer;  

   x,d :longint;  

begin  

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

readln (x);  

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

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

begin

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

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

 x := x div 10;                    //уменьшаем на один символ и повторяем операцию

end;

if k gt;= 2 then  

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

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

end.

/* Вот написал сам, но то что пробовал сделать ты не сообразил */

Степан Чепеженко
Стой вот
Knulova Eva
1. Дано естественное число:- отыскать количество четных цифр числа;- правильно ли, что данная цифра А встречается в числе более 2-ух раз ( А вводится с клавиатуры)?
Гена Божек
Полное задание
Серж
Я написал для 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.
Штангеева Надежда
держи
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт