Составить программу, которая среди n введенных чисел считает количество чисел равных 15 или кратных 3. Решить через циклы пока и до (будет два решения), через цикл for не надо

Программа 5:

#

# (c) NaaMan

import math

print( 'Введите через пробел длины сторон: ')

a, b, c = map( float, input().split())

if a+b>c and a+c>b and b+c>a:

   d = list((a,b,c))

   d.sort()

   a,b,c = d

   if a*a + b*b == c*c:

       print('Треугольник прямоугольный')

   else:

       x = (a*a + b*b - c*c) / (2 * a * b)

       gamma = math.acos(x)

       grd = gamma / math.pi * 180

       print('Угол С = %3.4f градусов'% grd)

else:

   print('Таких треугольников не существует!')

Программа 6:

#

# (c) NaaMan

import math

print( 'Введите через пробел a и b: ')

a, b = map( int, input().split())

print( 'Введите через пробел c и d: ')

c, d = map( int, input().split())

print( 'Максимальное из двух меньших - ', max( min( a, b), min( c, d)))

Программа 7:

#

# (c) NaaMan

import math

print( 'Выберите режим перевода')

print( '0 - из градусов в рад')

print( '1 - из рад в градусы')

n = int( input( '> '))

x = float( input( 'Введите меру угла: '))

if n:

   res = x / math.pi * 180 # rad -> grad

else:

   res = x * math.pi / 180 # grad -> rad

print( 'Результат: %3.4f'% res)

Объяснение:

program z1;

uses GraphABC;

var t:integer;

begin

SetWindowSize(400,400);

write('Введите показания температуры: ');

read(t);

SetPenWidth(3);

if t<=0 then

begin

SetPenColor(clBlue);

Line (150,200,200,150);

Line (200,150,250,200);

Line (250,200,200,250);

Line (200,250,150,200);

FloodFill(200,200,clSkyBlue);

Line (100,200,300,200);

Line (200,100,200,300);

Line (100,100,300,300);

Line (100,300,300,100)

end

else

begin

SetPenColor(clYellow);

Line (100,200,300,200);

Line (200,100,200,300);

Line (100,100,300,300);

Line (100,300,300,100);

SetBrushColor(clYellow);

Circle(200,200,50)

end

end.

Объяснение:

Вводим температуру

Если t <= 0 рисуем снежинку, иначе (если t > 0) рисуем солнышко