Ответы на вопрос:
Program test; var q,a,wa,name: string; test: integer; begin writeln('1)rus.l. 2)math 3)hist'); readln(test); if test=1 then begin сюда вопросы для первого end else if test=2 then begin сюда вопросы для 2 end else if test=3 then begin сюда вопросы для 3 end; end.
Популярно: Информатика
-
lalove524.09.2020 08:10
-
myyllaas13.02.2023 17:42
-
tanushkako17.01.2020 17:04
-
ekaterinapsncen18.04.2021 15:05
-
Zcnayper04.04.2021 23:29
-
getmanev23.06.2021 09:42
-
sever17425.05.2023 16:15
-
safirr29.10.2020 16:32
-
belovaan80p073pt09.02.2020 21:17
-
7995423611.02.2023 11:14