Ответы на вопрос:
Var a,n,l,o2,o3,o4,o5: integer; begin n: =20; a: =0; o2: =0; o3: =0; o4: =0; o5: =0; repeat a: =a+1; write('введите оценку ', a, ' ученика: '); read(l); if l = 2 then o2: =o2+1; if l = 3 then o3: =o3+1; if l = 4 then o4: =o4+1; if l = 5 then o5: =o5+1; until a=n; writeln('в классе: ', o2, ' двоек, ', o3, ' троек, ', o4, ' четвёрок, ', o5, ' пятёрок.') end.
Популярно: Литература
-
ga7707.08.2021 22:06
-
kurilovav89016.04.2022 15:43
-
МиланаТрошина26.04.2021 13:32
-
Морожка16.10.2021 07:01
-
doblesn06.03.2022 18:08
-
skssjsub11127.03.2021 06:47
-
МамкаДраконов29.04.2020 18:11
-
Kirill12345qwert13.07.2020 05:22
-
armen1983armen14.06.2020 02:24
-
FROST123456789101114.10.2021 15:00