Если лень перебирать вручную, можно воспользоваться программой
var k,l,r,x,f:integer; begin f := 3001; l := 0; r := 65534; x := (l + r) div 2; k := 1; while (x <> f) and (l < r) do begin writeln(k,' ',l,' ',r,' ',x); k := k + 1; if f < x then r := x - 1 else l := x + 1; x := (l + r) div 2 end; writeln(k,' ',l,' ',r,' ',x); end.
kazimov832
13.10.2021
//Pascal ABC.NET v3.1 сборка 1172
var ar: array of integer; n, k2, k3, k4, k5, i: integer; r: real;
begin write('Сколько учеников?'); readln(n); setlength(ar, n); writeln('Введите оценки:'); for i := 0 to n - 1 do begin readln(ar[i]); case ar[i] of 2: inc(k2); 3: inc(k3); 4: inc(k4); 5: inc(k5); else writeln('Не оценка'); exit; end; end; writeln('2:', k2); writeln('3:', k3); writeln('4:', k4); writeln('5:', k5); write('Успеваемость=', (k3 + k4 + k5) / n * 100:0:1); end.
Пример ввода: Сколько учеников?6 Введите оценки: 2 2 3 4 5 5 Пример вывода: 2:2 3:1 4:1 5:2 Успеваемость=66.7
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
1. Напишите различия массивов и циклов 2. Как влияет использование циклов в програмном коде 3. Что такое динамический массив данных
Объяснение:
Массивы, объекты типа Array, развиваются вместе с остальными механизмами языка. Они представляют собой списки пронумерованных значений.
Первый элемент массива имеет индекс (ключ) 0, такой подход используется во многих языках программирования.
Цикл — последовательность действий, которая в процессе выполнения программы потенциально может быть выполнена неоднократно.