ОДНО ЗАДАНИЕ
Определи основание системы счисления числа 23610.

150

317

Посмотреть ответы 1

Ответы на вопрос:

сартоваа

Информатика

4,7(47 оценок)

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.