1 2 3 | А) список абитуриентов ,сдавших все три экзамена на 5 Б) список абитуриентов ,потерпевших неудачу на экзаменах В) список абитуриентов , зачисленных в институт . |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | TYPE EntranceExam name AS STRING * 20 exam1 AS INTEGER exam2 AS INTEGER exam3 AS INTEGER END TYPE DIM applicant AS EntranceExam INPUT "Введите имя абитуриента: ", applicant.name INPUT "Введите результаты по экзаменам: ", applicant.exam1, applicant.exam2, applicant.exam3 totalScore = applicant.exam1 + applicant.exam2 + applicant.exam3 IF totalScore >= 12 THEN PRINT "Абитуриент зачислен в институт: "; applicant.name ELSE PRINT "Абитуриент не зачислен в институт: "; applicant.name END IF IF applicant.exam1 = 5 AND applicant.exam2 = 5 AND applicant.exam3 = 5 THEN PRINT "Абитуриент сдал все экзамены на 5: "; applicant.name ELSE PRINT "Абитуриент не сдал все экзамены на 5: "; applicant.name END IF |
Тестирование выполнено в программе QB64 ( Скачать )