profile="http://gmpg.org/xfn/11"> Ѐункция БтрЧислоВхоТдСний (Π’Π΅ΠΊΠ‘Ρ‚Ρ€ΠΎΠΊΠ°, Π’Π΅ΠΊΠŸΠΎΠ΄ΡΡ‚Ρ€ΠΎΠΊΠ°ΠŸΠΎΠΈΡΠΊΠ°) Π² 1Π‘. | Π Π°Π·Ρ€Π°Π±ΠΎΡ‚Ρ‡ΠΈΠΊΡƒ ΠΎ Ρ€Π°Π±ΠΎΡ‚Π΅ с 1Π‘:ΠŸΡ€Π΅Π΄ΠΏΡ€ΠΈΡΡ‚ΠΈΠ΅, Pascal, Паскаль

Ѐункция БтрЧислоВхоТдСний (Π’Π΅ΠΊΠ‘Ρ‚Ρ€ΠΎΠΊΠ°, Π’Π΅ΠΊΠŸΠΎΠ΄ΡΡ‚Ρ€ΠΎΠΊΠ°ΠŸΠΎΠΈΡΠΊΠ°) Π² 1Π‘.

Ѐункция БтрЧислоВхоТдСний (Π’Π΅ΠΊΠ‘Ρ‚Ρ€ΠΎΠΊΠ°, Π’Π΅ΠΊΠŸΠΎΠ΄ΡΡ‚Ρ€ΠΎΠΊΠ°ΠŸΠΎΠΈΡΠΊΠ°) Β Π² 1Π‘.

Ѐункция вычисляСт сколько Ρ€Π°Π· ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€ Π’Π΅ΠΊΠŸΠΎΠ΄ΡΡ‚Ρ€ΠΎΠΊΠ°ΠŸΠΎΠΈΡΠΊΠ° Π²Ρ…ΠΎΠ΄ΠΈΡ‚ Π² ΠΏΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€ Π’Π΅ΠΊΠ‘Ρ‚Ρ€ΠΎΠΊΠ°.

Код:

Π’Π΅ΠΊΠ‘Ρ‚Ρ€ΠΎΠΊΠ° = "Одна ΠΏΡ‚ΠΈΡ†Π°, Π΄Π²Π΅ ΠΏΡ‚ΠΈΡ†Ρ‹, Ρ‚Ρ€ΠΈ ΠΏΡ‚ΠΈΡ†Ρ‹";
Π’Π΅ΠΊΠŸΠΎΠ΄ΡΡ‚Ρ€ΠΎΠΊΠ°ΠŸΠΎΠΈΡΠΊΠ° = "ΠΏΡ‚ΠΈ";
НайдСноЧисло=БтрЧислоВхоТдСний(Π’Π΅ΠΊΠ‘Ρ‚Ρ€ΠΎΠΊΠ°,Π’Π΅ΠΊΠŸΠΎΠ΄ΡΡ‚Ρ€ΠΎΠΊΠ°ΠŸΠΎΠΈΡΠΊΠ°);
Π‘ΠΎΠΎΠ±Ρ‰ΠΈΡ‚ΡŒ("НайдСно: "+НайдСноЧисло);

Π Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚:

НайдСно: 3

ΠšΠΎΠΌΠΌΠ΅Π½Ρ‚Π°Ρ€ΠΈΠΈ Π·Π°ΠΏΡ€Π΅Ρ‰Π΅Π½Ρ‹.