Определите, что будет напечатано в результате работы следующего фрагмента программы: program b05; var n, s: integer; begin n : = 0; s : = 1; while s < = 1000 do begin s : = s * 3; n : = n + 3; end; write(n) end. подробно,
В одной деревне жили собака и кошка.Собачку звали Жучка,а кошку Муська. Они были очень дружны.Ели Жучка и Муська с одной миски,спали в одной будке.Жучка сторожила хозяйский двор,Муська ловила мышей.И все было очень хорошо и дружно.Но однажды на крыше хозяйского дома,Муся увидела гнездо,а в гнезде,три яйца.Жучка и Муська поняли,что это кукушка бросила свои яйца.Они вытащили это гнездо на землю и поочереди грели яйца своим телом.Через неделю ,из яиц вылупились птенцы, и Муська с Жучкой взяли заботу о кормлении на себя. Вот такая небылица.Сказка ложь ,да в ней намек,добрым молодцам урок
Поскольку среднее всех введенных чисел нельзя найти, пока не будет закончен ввод этих чисел, а затем каждое число нужно будет сравнивать с этим средним, введенные числа придется где-то хранить. Например, в массиве длиной 100 (в условии сказано, что количество чисел "до 100"). Считаем, что описан массив a[1..100] и в нем находятся n≤100 целых чисел (можно и нецелых, но раз ничего не сказано в условии, мы вправе решить это сами). Тогда среднее определится по формуле: а сумму мы умеем считать, накапливая значение в цикле со счетчиком, дающем проход по всем элементам массива. Искомое количество чисел, меньших среднего - это тоже сумма, найти которую позволит еще один цикл, но в нем уже будет анализ условия.
2. Программа на языке Pascal
const nn=100; var i,n,k,s:integer; m:real; a:array[1..nn] of integer; begin Write('Количество чисел равно '); Read(n); Writeln('Введите числа:'); s:=0; for i:=1 to n do begin Read(a[i]); s:=s+a[i] end; m:=s/n; k:=0; for i:=1 to n do if a[i]<m then Inc(k); Writeln('Количество чисел, превышающих среднее значение, равно ',k) end.
3. Пример работы программы
Количество чисел равно 10 Введите числа: 6 -4 11 -7 5 7 0 3 5 -2 Количество чисел, превышающих среднее значение, равно 4
1 <= 1000 ⇒ true; s = s*3 = 1*3 =3, n = n+3 = 0+3 = 3
3 <= 1000 ⇒ true; s = 3*3 = 9, n = 3+3 = 6
9 <= 1000 ⇒ true; s = 9*3 = 27, n = 6+3 = 9
27 <= 1000 ⇒ true; s = 27*3 = 81, n = 9+3 = 12
81 <= 1000 ⇒ true; s = 81*3 = 243, n = 12+3 = 15
243 <= 1000 ⇒ true; s = 243*3 = 729, n = 15+3 = 18
729 <= 1000 ⇒ true; s = 729*3 = 2187, n = 18+3 = 21
2187 <= 1000 ⇒ false
На экран будет выведено значение n = 21