Program task; var p:array[1..10] of integer; i, n2, n3, n4, n5:integer; begin n2:=0; n3:=0; n4:=0; n5:=0; {n2 - n5 - колич. 2-ек, 3-ек и т.д.} writeln('Введите 10 элементов массива, отметки от 1 до 5'); for i:=1 to 10 do {ввод исходных данных} begin write('p[',i,'] = '); readln(p[i]) end; for i:=1 to 10 do {решение, перебор таблицы и суммирование} begin if p[i] = 2 then n2:=n2+1; if p[i] = 3 then n3:=n3+1; if p[i] = 4 then n4:=n4+1; if p[i] = 5 then n5:=n5+1 end; writeln('n2 = ',n2); {вывод результатов} writeln('n3 = ',n3); writeln('n4 = ',n4); writeln('n5 = ',n5); writeln('всего оценок',n2+n3+n4+n5) end.
81/2=40 1
40/2=20 0
20/2=10 0
10/2=5 0
5/2=2 1
2/2=1 0
1/2=0 1
81=1010001
Остаток от деления
185/2=92 1
92/2=46 0
46/2=23 0
23/2=11 1
11/2=5 1
5/2=2 1
2/2=0 0
0/2=0 1
185=10111001