Turbo Pascal для начинающих




Задача 82


{ Проверка знания истории } var
year: integer; { ответ испытуемого } begin '
writeln('В каком году был основан Санкт-Петербург?');
writeln('Введите число и нажмите <Enter>');
write('->');
readln(year);
if year = 1703
then writeln('Правильно.') else

begin
write('Вы ошиблись, ');
writeln('Санкт-Петербург был основан в 1703 году.1) end; readln; end.

Задача 84

{ Проверка знания истории архитектуры } var
otv: integer; { номер ответа, выбранного испытуемым } begin
writeln('Архитектор Исаакиевского собора:');
writeln('1. Доменико Трезини');
writeln('2. Огюст Монферран');
writeln('3. Карл Росси');
writeln;
writeln('Введите номер правильного ответа и нажмите
<Enter>'); write('->'); readln(otv); if otv = 2
then writeln("Правильно.') else
begin
writeln('Вы ошиблись. ') ;
writeln('Архитектор Исаакиевского собора ', 'Огюст Монферран.');
end;
readln; end.









Начало    Назад    Вперед