Запиши программу на языке Паскаль для: y=⎧⎩⎨⎪⎪0, еслиx≤0x, если01. (y:3:0) Запусти программу и введи значение x=10. Число выведенное на экран:

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.

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

Двоичная - система счисления с основанием 2. В этой системе счисления числа записываются с двух символов (1 и 0).
57/2 = 28 с остатком 1
28/2 = 14 с остатком 0
14/2 = 7 с остатком0
7/2 = 3 с остатком 1
3/2 = 1 с остатком 1
1/2 = 0 с остатком 1
Получаем 57(10) = 111001(2)
По аналогии 17(10) = 10001(2)

Пятеричная - система счисления с основанием 5. Для представления чисел в ней используются цифры 0 до 4.
57/5 = 11 с остатком 2
11/5 = 2 с остатком 1
2/5 = 0 с остатком 2
57(10) = 212(5)
212(5) = 2*5^2+1*5^1+2*5^0 = 57(10)

17/5 = 3 с остатком 2
3/5 = 0 с остатком 3
17(10) = 32(5)
32(5) = 3*5^1+2*5^0=17(10)

Восьмеричная - системама счисления с основанием 8. Для представления чисел в ней используются цифры 0 до 7.
57/8 = 7 с остатком 1
7/8 = 0 с остатком 7
57(10) = 71(8)
По аналогии получаем 17(10) = 21(8)

Шестнадцатеричная - система счисления с основанием 16. Для представления чисел в ней используются цифры от 0 до 9 и латинские буквы от A до F для обозначения цифр от 10 до 15, то есть (0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A, B, C, D, E, F).

57/16 = 3 с остатком 9 (если остаток 10 - 15 исп. буквы A - F)
3/16 = 0 с остатком 3
57(10) = 39(16)
По аналогии получаем 17(10) = 11(16)
Удачи