ответ:var err, right, answer : integer;
BEGIN
err := 0; right := 0;
writeLn('Сейчас Вам будет предложен тест по архитектуре. ');
writeLn('К каждому вопросу три варианта ответа. ');
writeLn('Вы должны ввести номер правильного ответа и нажать <Еnter>');
writeLn;
writeLn('Архитектор Исаакиевского собора: ');
writeLn('1. Доменико Трезини');
writeLn('2. Огюст Монферран');
writeLn('3. Карл Росси');
Write('Ваш ответ: ');ReadLn(answer);
if answer = 2 then begin
WriteLn('Правильно');
right := right +1;
end
else begin
WriteLn('Неправильно');
err := err + 1;
end;
writeLn;
writeLn('Архитектор Зимнего дворца: ');
writeLn('1. Франческо Бартоломео');
writeLn('2. Карл Росси');
writeLn('3. Огюст Монферран');
Write('Ваш ответ: ');ReadLn(answer);
if answer = 2 then begin
WriteLn('Правильно');
right := right +1;
end
else begin
WriteLn('Неправильно');
err := err + 1;
end;
writeLn;
writeLn('Невский проспект получил свое название: ');
writeLn('1. По имени реки, на которой стоит Санк-Петербург');
writeLn('2. По имени близко расположенной Александро-Невской лавры');
writeLn('3. В память о знаменитом полководце - Александре Невском');
Write('Ваш ответ: ');ReadLn(answer);
if answer = 2 then begin
WriteLn('Правильно');
right := right +1;
end
else begin
WriteLn('Неправильно');
err := err + 1;
end;
WriteLn('Правильных ответов: ', right);
WriteLn('Неправильных ответов: ', err);
END.
Объяснение:
P.S. Это конечно не то,но думаю по аналогию сможешь составить
Объяснение:
Выполним перевод через десятичную систему счисления.
Выполним перевод в десятичную систему счисления вот так:
0∙28+1∙27+0∙26+1∙25+1∙24+1∙23+0∙22+0∙21+1∙20 = 0∙256+1∙128+0∙64+1∙32+1∙16+1∙8+0∙4+0∙2+1∙1 = 0+128+0+32+16+8+0+0+1 = 18510
Получилось: 0101110012 =18510
Переведем число 18510 в восьмеричное вот так:
Целая часть числа находится делением на основание новой системы счисления:
(фото ниже)
В результате преобразования получилось:
18510 = 2718
Окончательный ответ: 10111001 (двоичная) = 271 (восьмеричная)