30 !
если все сделаете !

составить: метод решения, блок схему и программу на языке паскаль.
1.водятся результаты контрольной работы 10 учащихся. определите число неудовлетворительных, удовлетворительных, хороших, отличных оценок.
2. определите число суток с 1905 по 1915 год. указание: високосные годы это те, у которых номер делится на 400, и те, у которых номер делится на 4, но не делится на 100.

все это: метод решения, блок схему и программу на языке паскаль.

print('--- 1 ---')

b = float(input('Введите b: '))

a = b**3/9-6.4*(b+8)+3*b/4

print('a =', a)

print()

print('--- 2 ---')

a = float(input('Введите a: '))

b = float(input('Введите b: '))

d = a**3*b/7-2*a*b**2*(a+b)

print('d =', d)

print()

print('--- 3 ---')

a = float(input('Введите a: '))

b = float(input('Введите b: '))

q = (3*a**3-2*a*b+b**2)/(2*a*(3*a-b))

print('q =', q)

print()

print('--- 4 ---')

x = float(input('Введите x: '))

y = float(input('Введите y: '))

k = x**3-4*x*y*(x+y**2)

print('k =', k)

print()

print('--- 5 ---')

v = float(input('Введите v: '))

h = abs(v+1.7)*(2*v+3)

print('h =', h)

Program znanija;
var A:array[1..20] of integer;   
i,k,min,n:integer;
begin
min:=1000000000; // прощу прощение за такое ) 

for i:=1 to 20 do  A[i]:=random(9); // заполняем массив 

for i:=1 to high(A) do  // находим минимальное нечётное, запоминаем его номер
if (A[i] < min) and (A[i] mod 2 <> 0) then begin
n:=i; min:=A[i];
end;  

for i:=1 to 20 do  write(A[i]:3);   // Выводит весь массив 

writeln();  // просто перевод на новую строку для красоты 

writeln('Minimum: ',min,' Ego nomer: ',n); // выдаём минимальное и его номер
end.