D. Последовательность ограничение по времени на тест: 1 секунда
ограничение по памяти на тест: 266 мегабайт
ввод: стандартный ввод
вывод: стандартный вывод
Есть последовательность следующего типа: "123112233111222333111122223333...". Найдите его п-й элемент,
Входные данные
В первой строке входных данных задается одно целое числе п (1 <n < 10°).
Выходные данные
Выведите одно целое число — ответ на задачу.
Примеры
Входные данные
Скопировать
1
выходные данные
Скопировать
1
Входные данные
Скопировать
5
выходные данные
Скопировать
1
Входные данные
18
Скопировать
выходные данные
3
Скопировать​

Фрагменты таблиц истинности - в прилагаемом файле.
Так как в таблицах истинности выражений А и В нет совпадающих строк, то это значит, что значения в столбцах А и В противоположны. Т.е., там где для какого-либо набора переменных выражение А имеет значение 0, выражение В будет равно 1, и наоборот, если для какого-либо набора переменных выражение А имеет значение 1, выражение В будет равно 0. Следовательно, в столбце значений таблицы истинности выражения a v b все значения будут равны 1. Количество единиц = 2^6 = 64
ответ: 64

Var x,y,z:longint;
begin
writeln(' TEST');
writeln(' выберите верный вариант ответа 1,2 или 3');
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
if (y=3)then write('ваша оценка 5');
if (y=2)then write('ваша оценка 3');
if (y=1)then write('ваша оценка 2');
end.
проверить на ошибки а тест думаю вы и сами составите надеюсь всё правильно т.к. давно не работал на паскале