Выручайте(ПАСКАЛЬ, не сложно вродь). Задание на фото. буду очень благодарен.
Answers & Comments
Опечатка
Uses crt; var c:char;i:byte; begin write('Программа проверки знания истории архитектуры.Начать тест?y/n'); read(c); clrscr; if c='y' then begin clrscr; writeln('Невский проспект получил своё название:'); writeln('1.По имени реки, на берегах которой расположен Санкт-Петербург.'); writeln('2.По имени близко расположенного монастыря Александро-Невской лавры'); writeln('3.В память о знаменитом полководце Александре Невском.'); writeln('Введите номер правильного ответа и нажмите <Enter>'); read(i); clrscr; if i=2 then writeln('SUCCES!') else writeln('Вы ошиблись. Правильный ответ: 2.'); end; end.
5 votes Thanks 2
Опечатка
там не было решения, так что не возмущайся
Answers & Comments
var c:char;i:byte;
begin
write('Программа проверки знания истории архитектуры.Начать тест?y/n');
read(c);
clrscr;
if c='y' then
begin
clrscr;
writeln('Невский проспект получил своё название:');
writeln('1.По имени реки, на берегах которой расположен Санкт-Петербург.');
writeln('2.По имени близко расположенного монастыря Александро-Невской лавры');
writeln('3.В память о знаменитом полководце Александре Невском.');
writeln('Введите номер правильного ответа и нажмите <Enter>');
read(i);
clrscr;
if i=2 then writeln('SUCCES!')
else writeln('Вы ошиблись. Правильный ответ: 2.');
end;
end.