k = int(0)
m = int(input("Введите M: "))
while m > 0:
if m % 10 % 2 == 0:
k += 1
m //= 10
print("Четных цифр = ", k)
Объяснение:
k = int(0) // Создание целочисленной переменной k и присвоение ей значения 0 (ноль)
m = int(input("Введите M: ")) // Ввод с клавиатуры целочисленной переменной m
while m > 0: // Пока значение переменной m > 0
if m % 10 % 2 == 0: // Если остаток от деления значения переменной m на 10 и на 2 = 0
k += 1 // К значению переменной k прибавляем 1 (единицу)
m //= 10 // Отделяем последнее число от значения переменной m путем целочисленного деления на 10
print("Четных цифр = ", k) // Вывод значения переменной k
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
uses graphABC;
var n,da,db,x1,y1,x2,y2:integer;
begin
repeat
write('Введите количество точек от 2 до 50 n=');
readln(n);
until n in [2..50];
clearwindow;
da:=(windowwidth-100)div (n-1);//расстояние между точками ввверху
db:=da div 4;//то же внизу
if odd(n) then//если n нечетное
x1:=windowwidth div 2-da*(n div 2);
x2:=windowwidth div 2-db*(n div 2);
end
else //если четное
x1:=windowwidth div 2-da*(n div 2-1)- da div 2;
x2:=windowwidth div 2-db*(n div 2-1)- db div 2;
end ;
y1:=50;
y2:=windowheight-50;
for var i:=0 to n-1 do
line(x1+i*da,y1,x2+i*db,y2);
line(x1,y1,x1+(n-1)*da,y1);
line(x2,y2,x2+(n-1)*db,y2);
end.
k = int(0)
m = int(input("Введите M: "))
while m > 0:
if m % 10 % 2 == 0:
k += 1
m //= 10
print("Четных цифр = ", k)
Объяснение:
k = int(0) // Создание целочисленной переменной k и присвоение ей значения 0 (ноль)
m = int(input("Введите M: ")) // Ввод с клавиатуры целочисленной переменной m
while m > 0: // Пока значение переменной m > 0
if m % 10 % 2 == 0: // Если остаток от деления значения переменной m на 10 и на 2 = 0
k += 1 // К значению переменной k прибавляем 1 (единицу)
m //= 10 // Отделяем последнее число от значения переменной m путем целочисленного деления на 10
print("Четных цифр = ", k) // Вывод значения переменной k
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
uses graphABC;
var n,da,db,x1,y1,x2,y2:integer;
begin
repeat
write('Введите количество точек от 2 до 50 n=');
readln(n);
until n in [2..50];
clearwindow;
da:=(windowwidth-100)div (n-1);//расстояние между точками ввверху
db:=da div 4;//то же внизу
if odd(n) then//если n нечетное
begin
x1:=windowwidth div 2-da*(n div 2);
x2:=windowwidth div 2-db*(n div 2);
end
else //если четное
begin
x1:=windowwidth div 2-da*(n div 2-1)- da div 2;
x2:=windowwidth div 2-db*(n div 2-1)- db div 2;
end ;
y1:=50;
y2:=windowheight-50;
for var i:=0 to n-1 do
line(x1+i*da,y1,x2+i*db,y2);
line(x1,y1,x1+(n-1)*da,y1);
line(x2,y2,x2+(n-1)*db,y2);
end.
Объяснение: