Question

Написать программу проверки знания истории архитектуры. Программа должна вывести вопроси три варианта ответа. Пользователь должен выбрать правильный ответ и ввести его номер.Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).
Архитектор Исаакиевского собора:
1. Доменико Трезини
2. Огюст Монферран
3. Карл Росси
Введите номер правильного ответа и нажмите <Enter>
= 2
Правильно.
Архитектор Исаакиевского собора - Огюст Монферран

на языке Turbo Pascal

Answer 1

Uses crt;
Var a:integer;
Begin       
clrscr;       
writeln('Архитектор Исаакиевского собора: ');       
writeln('1. Доменико Трезини');       
writeln('2. Огюст Монферран');       
writeln('3. Карл Росси');       
writeln('Введите номер правильного ответа и нажмите <Enter>');       
readln(a);       
if a=2 then writeln('Правильно.
Архитектор Исаакиевского собора - Огюст Монферран')       
else writeln('Не правельно');       
readln;       
end.

Answer 2

вот скачай и все впринципе_))))

e347a173b0366005c3dffab837f0e91c.pas

Answer 3

спасибо :)