В школе 740 учеников. Докажи что 3 из них празднуют день рожденье…

Question

В школе 740 учеников. Докажи что 3 из них празднуют день рожденье в один и тотже день

Answer 1

53

parazitten

24 августа 2022

Программа на языке 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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: