Ответы на вопрос:
const n = 4; //кол-во людей g = 1995; //год m = 5; //номер месяца var i,gr,mr,k : integer; begin k : = 0; for i : = 1 to n do begin writeln ('введите год и месяц'); read (gr,mr); if (gr = g) and (mr = m) then k : = k +1; end; writeln (); writeln (k); end.
Популярно: Информатика
-
Liка2512.10.2022 09:08
-
uhvvivdgb20.06.2023 05:51
-
рана709.10.2021 18:03
-
NikaGoddesin20.06.2023 16:28
-
vikki1748103.04.2020 10:48
-
eugenetroyan31.10.2022 23:05
-
MegaTanker15.02.2021 14:00
-
Blackbberyy16.10.2020 02:19
-
LizaVeta2007122.03.2022 10:49
-
Trytodo14.06.2020 10:34