Спрограммами по 1)дано натуральное число n. составьте программу, которая определяет сколько цифр этого числа кратны 3. 2)даны натуральные числа n, .составьте программу, которая определяет количество членов последовательности , являющихся нечетными числами.

 1)
var   
a,b,k : integer;  
begin 
readln (a);   
k := 0;     

While a > 0 do   
begin     
b := a mod 10;     
a := a div 10;     
if b mod 3 = 0 then       
k := k +1; 
end;   

writeln (k); 
end.

2)
 var   
n,a,i,k : integer;    
begin 
readln (n);   
k := 0;   
for i := 1 to n do   
begin     
readln (a);     
if a mod 2 = 1 then       
k := k +1;   
end;     
writeln (k); 
end.

from tkinter import *

def click1():

   lbl.configure(text="Вы нажали кнопку 1", font=("",20),bg="cyan2")

   window["bg"] = "cyan2"

def click2():

   lbl.configure(text="Вы нажали кнопку 2", font=("",20),bg="yellow")

   window["bg"] = "yellow"

window = Tk()

window.resizable(False,False)

window.title("ПР_14: ФИО")

window.geometry('600x400')

lbl = Label(window, text="", font=("", 50))

btn = Button(window, text="Кнопка 1", command=click1)

btn.grid(column=1, row=0)

lbl.grid(column="5",row="0")

btn = Button(window, text="Кнопка 2", command=click2)

btn.grid(column=3, row=5)

window.mainloop()

Python

import random

s = [random.randint(-50,50) for i in range(100)]

flag = False

print("Номера отрицательных элементов:", end=" ")

for i in range(len(s)):

   if s[i] < 0:

       print(i, end=" ")

       flag = True

if not flag:

   print("Нет отрицательных элементов.")

print()

print()

print(s)

Вывод:

Номера отрицательных элементов: 1 2 3 7 9 14 15 16 19 20 25 26 28 33 34 35 37 38 41 46 48 49 50 51 52 54 55 56 60 61 66 67 70  72 74 75 79 80 81 82 87 88 89 90 92 94 96                                                                                      

Последовательность чисел:                                                                                                      

[30, -44, -14, -20, 48, 10, 32, -8, 46, -27, 1, 1, 5, 3, -23, -22, -41, 28, 29, -4, -34, 46, 34, 6, 7, -45, -17, 45, -27, 5, 4 6, 12, 44, -28, -29, -34, 27, -39, -18, 16, 21, -5, 14, 21, 24, 30, -44, 37, -18, -38, -36, -15, -43, 23, -49, -11, -32, 36, 5 , 17, -12, -30, 26, 14, 26, 32, -31, -44, 42, 48, -14, 37, -45, 10, -34, -22, 48, 28, 10, -23, -6, -35, -38, 1, 33, 35, 50, -1 8, -2, -29, -20, 33, -15, 3, -27, 6, -50, 6, 25, 5]