Задание:
В школе 740 учеников. Докажи что 3 из них празднуют день рожденье в один и тотже день
Решение:
Программа на языке pascalМесяц и день вводятся ка одно числонапример: 0801 — первое августаprogram pr; label l; var mas: array[1… 740] of longint; i,k, count: integer; beginfor i: =1 to 740 do readln (mas[i]); for i: =1 to 740 dobeginfor k: =1 to 740 dobeginif mas[i]=mas[k] then count: =count+1; if count=3 then goto l; end; end; l: if count=3 then writeln ('Найдены 3 ученика с одинаковыми днями рождения') else writeln ('Не найдены 3 ученика с одинаковыми днями рождения') readln; end.
Знаете другой ответ?