program viborif7;
var fulse, true, answer : integer;
BEGIN
fulse := 0; true := 0;
writeLn ('Сейчас Вам будет предложен тест по архитектуре.К каждому вопросу три варианта ответа.Вы должны ввести номер правильного ответа.') ;
writeLn;
writeLn ('Строительство Рундальского дворца продолжалось с:') ;
writeLn ('1.с 1736 по 1765 г.г. ') ;
writeLn ('2.с 1736 по 1768 г.г. ') ;
writeLn ('3.с 1730 по 17 50 г.г.') ;
Write ('Ваш ответ: ') ;
ReadLn (answer) ;
if answer = 2 then begin
WriteLn ('Правильно') ;
true := true +1;
end
else begin
WriteLn ('Неправильно') ;
fulse := fulse + 1;
end;
writeLn;
writeLn ('Архитектор Зимнего дворца:') ;
writeLn ('1. Франческо Бартоломео') ;
writeLn ('2. Карл Росси') ;
writeLn ('3. Огюст Монферран') ;
Write ('Ваш ответ: ') ;ReadLn (answer) ;
if answer = 2 then begin
WriteLn ('Правильно') ;
true := true +1;
end
else begin
WriteLn ('Неправильно') ;
fulse := fulse + 1;
end;
writeLn;
writeLn ('Невский проспект получил свое название:') ;
writeLn ('1. По имени реки, на которой стоит Санк-Петербург') ;
writeLn ('2. По имени близко расположенной Александро-Невской лавры') ;
writeLn ('3. В память о знаменитом полководце - Александре Невском') ;
Write ('Ваш ответ: ') ;ReadLn (answer) ;
if answer = 2 then begin
WriteLn ('Правильно') ;
true := true +1;
end
else begin
WriteLn ('Неправильно') ;
fulse := fulse + 1;
end;
WriteLn ('Правильных ответов: ', true) ;
WriteLn ('Неправильных ответов: ', false) ;
END.
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.