Склавиатуры вводится четырехзначное число. определить будет ли оно делится на з? использовать теорию деления на 3! , (

Паскаль авс. программу можно использовать не только для 4-значных чисел, для этого надо только поменять значение n в строке  const n=4 на нужное. program  alyatu; uses crt; const n=4; var   i,z,s: integer; begin   writeln('*** alphaeus is ***');   writeln('***                  ok                        ***');   writeln('используя признак делимости, программа оперделяет делится ли введённое 4-значное число  на 3'); writeln('введите число'); repeat       readln (z);   until ((z> 0) and (z< power(10,; for i: =1 to n do begin s: =s+z mod 10; z: =z div 10; end; if (s mod 3=0) then writeln('число делится на 3') else writeln('число не делится на 3');   end.

Program z1; var n,a,b,c,d,e: integer; begin write('введите число: '); read(n); a: =n div 1000; b: =(n mod 1000) div 100; c: =(n mod 100) div 10; d: =n mod 10; e: =a+b+c+d; if (e mod 3=0) then writeln('число делится на 3') else writeln('число не делится на 3'); end.

Varm: set of byte; u,s,r,a,p,e,c: integer; beginm : = []; for u : = 1 to 6 doif not (u in m) thenbegininclude(m, u); for s : = 0 to 6 doif not (s in m) thenbegininclude(m, s); for r : = 0 to 6 doif not (r in m) thenbegininclude(m, r); for a : = 0 to 6 doif not (a in m) thenbegininclude(m, a); for p : = 1 to 6 doif not (p in m) thenbegininclude(m, p); for e : = 0 to 6 doif not (e in m) thenbegininclude(m, e); for c : = 0 to 6 doif not (c in m) thenbegininclude(m, c); if u * 1000 + s * 100 + s * 10 + r +u * 100 + s * 10 + a =p * 10000 + e * 1000 + a * 100 + c * 10 + e thenwriteln(u, s, s, r, ' + ', u, s, a, ' = ', p, e, a, c, e); exclude(m, c)end; exclude(m, e); end; exclude(m, p); end; exclude(m, a)end; exclude(m, r)end; exclude(m, s)end; exclude(m, u)end; writeln(u, s, s, r, ' + ', u, s, a, ' = ', p, e, a, c, e); end. {попробуй это}

number = int(input())

last_number = 0

even = 0

odd = 0

while (number > 0):

   last_number = number % 10

   if (last_number % 2 == 0):

       even += 1

   else:

       odd += 1

   number //= 10

print("Even = ", even, "Odd = ", odd)

Объяснение:

number = int(input())  // Объявление + ввод переменной

last_number = 0  // Переменная для хранения последней цифры числа

even = 0  // Количество четных

odd = 0  // Количество нечетных

while (number > 0):  // Пока число > 0

   last_number = number % 10  // Получаем последнюю цифру числа

   if (last_number % 2 == 0):  // Если цифра делится на 2 без остатка

       even += 1  // В переменную even делаем + 1

   else:  // Иначе

       odd += 1  // В переменную odd делаем + 1

   number //= 10  // Удаляем последнюю цифру числа

print("Even = ", even, "Odd = ", odd) // Вывод