ΠΠΎΡΡΠΈΡΠ°ΡΡ Π² ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠΌ ΡΠ°ΠΉΠ»Π΅ ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠΈΡΡ ΠΈ Π»Π°ΡΠΈΠ½ΡΠΊΠΈΡ Π±ΡΠΊΠ² , ΠΏΠ°ΡΠΊΠ°Π»Ρ.
ΠΠΎΡΡΠΈΡΠ°ΡΡ Π² ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠΌ ΡΠ°ΠΉΠ»Π΅ ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠΈΡΡ ΠΈ Π»Π°ΡΠΈΠ½ΡΠΊΠΈΡ Π±ΡΠΊΠ² , ΠΏΠ°ΡΠΊΠ°Π»Ρ.
program Kol_Letters_Digits;
{Π·Π°Π΄Π°ΡΠΈ Π½Π° ΡΠΈΡΠ»Π° ΠΏΠ°ΡΠΊΠ°Π»Ρ Ρ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ΠΌ}
{ΠΠΎΡΡΠΈΡΠ°ΡΡ Π² ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠΌ ΡΠ°ΠΉΠ»Π΅ ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠΈΡΡ ΠΈ Π»Π°ΡΠΈΠ½ΡΠΊΠΈΡ
Π±ΡΠΊΠ² , ΠΏΠ°ΡΠΊΠ°Π»Ρ.}
uses
crt;
type
Ch_Set = set of char;
const
Digits: Ch_Set = ['0'..'9'];
Letters: Ch_Set = ['A'..'Z', 'a'..'z'];
var
i, i_CountDig, i_CountLet: integer;
i_ArrNum: array[1..10] of integer;
ch_1: char;
ch_f: Text;
begin
i_CountDig := 0;
i_CountLet := 0;
Assign(ch_f, 'E:\file1.txt');
Reset(ch_f);
while not EOF(ch_f) do
begin
Read(ch_f, ch_1);
Write(ch_1);
if ch_1 in Digits then
i_CountDig := i_CountDig + 1;
if ch_1 in Letters then
i_CountLet := i_CountLet + 1;
end;
//ΠΡΠ²ΠΎΠ΄ Π½Π° ΡΠΊΡΠ°Π½
WriteLn();
WriteLn('ΠΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠΈΡΡ = ', i_CountDig);
WriteLn('ΠΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π±ΡΠΊΠ² = ', i_CountLet);
//Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
WriteLn('ΠΠ°ΠΆΠΌΠΈΡΠ΅ <Enter>, ΡΡΠΎΠ±Ρ Π²ΡΠΉΡΠΈ.');
ReadLn();
end.
Π’Π΅ΠΊΡΡΠΎΠ²ΠΎΠΉ ΡΠ°ΠΉΠ»:
Π’Π΅ΠΊΡΡΠΎΠ²ΠΎΠΉ ΡΠ°ΠΉΠ».
Π Π΅Π·ΡΠ»ΡΡΠ°Ρ:
ΠΠΎΡΡΠΈΡΠ°ΡΡ Π² ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠΌ ΡΠ°ΠΉΠ»Π΅ ΠΎΡΠ΄Π΅Π»ΡΠ½ΠΎ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠΈΡΡ ΠΈ Π»Π°ΡΠΈΠ½ΡΠΊΠΈΡ
Π±ΡΠΊΠ² , ΠΏΠ°ΡΠΊΠ°Π»Ρ.