Program chik;
var a,b:string;
i,l:integer;
begin
readln(a);
b:='';
l:=length(a);
for i:=1 to l do
begin
b:=b+a[i]+' ';
end;
writeln(b);
end.
1. Необходимо выбрать вид теста: с открытыми вопросами (пользователь вводит ответ сам), с закрытыми вопросами (пользователь выбирает варианты ответа), комбинированный.
2. Разработать вопросы теста и варианты ответов.
3. Разработать алгоритм программы, автоматизирующей тест.
4. Записать разработанный алгоритм на языке программирования QBasic.
5. Отладить программу.
<span>Линейный (последовательный) алгоритм — описание действий, которые выполняются однократно в заданном порядке
</span><span>Циклический алгоритм — описание действий, которые должны по вторяться указанное число раз или пока не выполнено заданное условие. Перечень повторяющихся действий называется телом цикла
</span>
<span>Разветвляющийся алгоритм — алгоритм, в котором в зависимости от условия выполняется либо одна, либо другая последовательность действий
</span>
<span>Вспомогательный алгоритм — алгоритм, который можно использовать в других алгоритмах, указав только его имя
</span>
Примеры
<span>Линейными являются алгоритмы отпирания дверей, заваривания чая, приготовления одного бутерброда. Линейный алгоритм применяется при вычислении арифметического выражения, если в нем используются только действия сложения и вычитания
</span>
<span>Многие процессы в окружающем мире основаны на многократном повторении одной и той же последовательности действий. Каждый год наступают весна, лето, осень и зима. Жизнь растений в течение года проходит одни и те же циклы. Подсчитывая число полных поворотов минутной или часовой стрелки, человек измеряет время
</span>
<span>Примеры разветвляющих алгоритмов: если пошел дождь, то надо открыть зонт; если болит горло, то прогулку следует отменить; если билет в кино стоит не больше десяти рублей, то купить билет и занять свое место в зале, иначе (если стоимость билета больше 10 руб. ) вернуться домой
</span>
<span>Например: вы в детстве учились суммировать единицы, затем десятки, чтобы суммировать двузначные числа содержащие единицы вы не учились новому методу суммирования, а воспользовались старыми методами</span>
N - количество шапок
i - информационный объем одного символа (одной шапки)
Нужно подобрать такую i, что бы
Получается 3 бита
Var c, ans, n, a, i, sum:integer;
begin
read(n);
read(c);
for i = 1 to n do
begin
read(a);
sum := sum+a;
if (sum >= c) then begin
ans := i;
break;
end;
end;
write(ans);
end.