// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
var n:=ReadInteger();
var a:array of integer;
a:=ReadArrInteger(n);
var p:=ReadInteger();
Sort(a);
var i:=n-1;
while a[i]>p do Dec(i);
Writeln(i+2);
end.
<u><em>Тестовое решение:</em></u>
5
175 169 172 180 174
174
4
Переменная b будет увеличиваться на единицу с каждым выполнением нижнего блока, а в переменной c будет накапливаться сумма всех b.
Раз сумма в c считается до увеличения b, то значит в конце (выход происходит при b=11), получим сумму всех целых чисел от единицы до десяти. Такая сумма равна 55.
Вот как будут меняться значения переменных при выполнении программы по этому алгоритму:
c b
0 0
0 1
1 2
3 3
6 4
10 5
15 6
21 7
28 8
36 9
45 10
55 11
Ответ: после выполнения алгоритма c=55
Программа (вариант 1):
var
b, c: integer;
begin
b := 0;
c := 0;
repeat
c := c + b;
b := b + 1;
until b = 11;
Print('b=', b, ' c=', c);
end.
Программа (вариант 2):
var
b, c: integer;
label loop1, loop2;
begin
b := 0;
c := 0;
loop1: if b = 11 then
goto loop2
else
begin
c := c + b;
b := b + 1;
goto loop1;
end;
loop2: Print('b=', b, ' c=', c);
end.
Если мощность алфавита = 128,значит вес символа =2^7 то есть 7 бит.
потом 7 умножаем на 600 и получаем 4200 бит.потом переводим в байты делением 4200/8 =525 байт.Переведем байты в килобайты получим 525/1024=0,5Mб
#include <iostream>
#include <conio.h>
using std::cout;
using std::cin;
using std::endl;
int F(int N);
int main()
{
int N;
cin >> N;
cout << F(N); я не понял, по условию сказано "первого, большего введенному m" если надо найти значение следующего после введенного, то вместо F(N) надо F(N+1) мол если ты ввел 14, то тебе нужно найти значение следующего(15), как-то так.
_getch();
}
int F(int N)
{
if (N >= 2)
return F(N - 1) + F(N - 2);
else
return N;
}