Ответы на вопрос:
Const students = 20; var marks: byte : = students; begin writeln('все пришли? '); var c: string; readln(c); if not (c in ['yes', '1', 'true', 'да']) then begin writeln('сколько не пришло? '); var b: byte; readln(b); marks : = (marks > b ? marks - b : 0); end; writeln(marks, ' оценок'); end.
Популярно: Информатика
-
апро2731.12.2020 07:24
-
begemot2003101.03.2022 05:53
-
vladagabriell14.05.2020 08:03
-
Лидуня27051617.01.2021 10:17
-
baburkanybekoff26.09.2022 05:47
-
arladich11.02.2020 10:56
-
omarova0629.06.2020 07:12
-
shurakupryanov28.11.2021 21:03
-
алинтен11.03.2023 12:44
-
elkat2427.08.2020 12:05