Перевод кода с Pascal - C# (193249)
Формулировка задачи:
Переведите пожалуйста код на C# с Паскаля. Если окажите мне услугу, то я вам очень благодарен.
var
k,n: integer;
d: char;
procedure AddDigit(s: string);
var
c,i: char;
begin
if Length(s)=k then writeln(s)
else begin
if s='' then c:='1' else c:= Succ(s[Length(s)]);
for i:=c to d do AddDigit(s+i)
end
end;
begin
k:= 2;
n:= 5;
d:= Chr(48+n);
AddDigit('');
readln
end.Решение задачи: «Перевод кода с Pascal»
textual
Листинг программы
class Program
{
private static int k, n;
private static char d;
static void Main(string[] args)
{
k = 2;
n = 5;
d = (char)(48 + n);
addDigit("");
Console.ReadLine();
}
private static void addDigit(string s)
{
if (s.Length == k)
Console.WriteLine(s);
else
{
char c;
if (s == string.Empty)
c = '1';
else
c = (char)(s[s.Length - 1] + 1);
for (int i = c; i < d; i++)
{
addDigit(s+(char)i);
}
}
}
}