Ребят помогите дописать прогу в паскале абс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-ух раз ( А вводится с клавиатуры)? помогите пожалуйста
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.
/* Вот написал сам, но то что пробовал сделать ты не сообразил */
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.