1) нужно разделить исходный код на 3 части 001 110 100 с основанием 2 И заменяем каждую группу на: 000-0, 001-1, 010-2, 011-3, 100-4, 101-5, 110-6, 111-7 Получается 001 110 100 с основанием 2 = 164 с основанием 8
2) для перевода в 10ричную систму нужно умножить разряд числа на соответствующую степень разряда 1110100 = 2^6*1+2^5*1+2^4*1+2^3*0+2^2*1+2^1*0+2^0*0=64+32+16+0+4+0+0=116
3)нужно разделить исходный код на группы по 4 разряда 0111 0100 изменяем каждую группу на: 0000-0, 0001-1, 0010-2, 0011-3, 0100-4, 0101-5, 0110-6, 0111-7, 1000-8, 1001-9, 1010-A, 1011-B, 1100-C, 1101-D, 1110-E, 1111-F. Получается 0111 0100 с основанием 2 = 74 с основанием 16
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. проверить на ошибки а тест думаю вы и сами составите надеюсь всё правильно т.к. давно не работал на паскале
001 110 100 с основанием 2
И заменяем каждую группу на: 000-0, 001-1, 010-2, 011-3, 100-4, 101-5, 110-6, 111-7
Получается
001 110 100 с основанием 2 = 164 с основанием 8
2) для перевода в 10ричную систму нужно умножить разряд числа на соответствующую степень разряда
1110100 = 2^6*1+2^5*1+2^4*1+2^3*0+2^2*1+2^1*0+2^0*0=64+32+16+0+4+0+0=116
3)нужно разделить исходный код на группы по 4 разряда
0111 0100
изменяем каждую группу на: 0000-0, 0001-1, 0010-2, 0011-3, 0100-4, 0101-5, 0110-6, 0111-7, 1000-8, 1001-9, 1010-A, 1011-B, 1100-C, 1101-D, 1110-E, 1111-F.
Получается 0111 0100 с основанием 2 = 74 с основанием 16
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.
проверить на ошибки а тест думаю вы и сами составите надеюсь всё правильно т.к. давно не работал на паскале