Перевести код с Delphi на C# - C# (199793)
Формулировка задачи:
while i<=length(a) do
begin
case a[i] of
'0'..'9':
begin
s:=s+a[i];
i:=i+1;
while (i<=length(a)) and (a[i] in ['0'..'9']) do
begin
s:=s+a[i];
i:=i+1;
end;
Add (s,1);
s:='';
end;
'a'..'z','A'..'Z','_','А'..'Я', 'а'..'я':
begin
s:=s+a[i];
i:=i+1;
while (i<=length(a)) and (a[i] in ['0'..'9','a'..'z','A'..'Z','_','А'..'Я', 'а'..'я']) do
begin
s:=s+a[i];
i:=i+1;
end;
Add (s,2);
s:='';
end;
',', ';', '-', '+', '*', '/', '=':
begin
s:=s+a[i];
i:=i+1;
Add(s,3);
s:='';
end;Решение задачи: «Перевести код с Delphi на C#»
textual
Листинг программы
static void Main()
{
Console.Write("Simbol: ");
char ch = (char)Console.Read();
if (Char.IsDigit(ch))
Console.WriteLine("{0} is digit", ch);
else
if (Char.IsLetter(ch))
Console.WriteLine("{0} is letter", ch);
else
if (Char.IsSeparator(ch))
Console.WriteLine("{0} is separator", ch);
Console.ReadKey();
}