Ответы на вопрос:
Var x,y,z: longint; begin writeln(' test'); writeln(' выберите верный вариант ответа 1,2 или 3'); writeln(' сюда вбиваешь вопрос '); writeln('1.сюда варианты ответов); writeln('2.сюда варианты ответов); writeln('3.сюда варианты ответов); read(x); if (x=номер верного варианта) then y: =y+1; writeln(' сюда вбиваешь вопрос '); writeln('1.сюда варианты ответов); writeln('2.сюда варианты ответов); writeln('3.сюда варианты ответов); read(x); if (x=номер верного варианта) then y: =y+1; writeln(' сюда вбиваешь вопрос '); writeln('1.сюда варианты ответов); writeln('2.сюда варианты ответов); writeln('3.сюда варианты ответов); read(x); if (x=номер верного варианта) then y: =y+1; if (y=3)then write('ваша оценка 5'); if (y=2)then write('ваша оценка 3'); if (y=1)then write('ваша оценка 2'); end. p.s.прошу проверить на ошибки а тест думаю вы и сами составите надеюсь всё правильно т.к. давно не работал на паскале
Популярно: Информатика
-
artemkafire200512.10.2020 19:28
-
rasulid0420.01.2023 02:37
-
21101983117.01.2022 08:05
-
SLT133714.03.2022 07:00
-
ВЛАД9887809.04.2023 03:01
-
ellalavrina21.10.2021 20:34
-
nugumanovsalavp092yo13.07.2021 12:17
-
spydemise19.10.2020 08:41
-
alexc12323.05.2023 21:42
-
sdiana160526.06.2021 15:02