Перевод с паскаля в C#
Формулировка задачи:
Ребят, помогите программку перевести с паскаля на C#. В паскале вообще ничего не понимаю, даже не приходилось сталкиваться с ним(
Хотя бы начните, чтобы я знал, какая переменная за что отвечает.
Заранее спасибо.
program z_number;
uses crt;
var CounterI, CounterJ, Number: word;
SymbolCh:char;
function Sum3(Number:word):byte;
var Number1, Number2, Number3:byte;
begin
Number1 := Number mod 10;
Number2 := Number div 10 mod 10;
Number3 := Number div 100;
Sum3 := Number1 + Number2 + Number3;
end;
begin
clrscr;
write('Все шестизначные счастливые номера, то есть сумма первых трех');
writeln('цифр этого номера равна сумме последних трех цифр этого номера');
Number := 0;
for CounterI := 100 to 999 do
for CounterJ := 1 to 999 do
begin
if Sum3(CounterI) = Sum3(CounterJ) then
begin
inc(Number);
write(CounterI);
if CounterJ < 10 then
writeln('00',CounterJ);
if (CounterJ > 9) and (CounterJ < 100) then
writeln('0',CounterJ);
if (CounterJ >= 100) then
writeln(CounterJ);
if Number mod 24 = 0 then
begin
writeln('Для продолжения просмотра нажмите Enter для прекращения Esc');
SymbolCh := readkey;
if (ord(SymbolCh) = 27) then
exit;
end;
end;
end;
readln;
end.Решение задачи: «Перевод с паскаля в C#»
textual
Листинг программы
PROGRAM JSPICOK;
USES CRT,SPICOK;
VAR
M1,N:INTEGER;
{ SPICKI }
{-------------------------------------------}
BEGIN
REPEAT
CLRSCR;
WRITELN(' MENU');
WRITELN('1 Cozdat(N)');
WRITELN('2 DobNach(N)');
WRITELN('3 DobKON(N)');
WRITELN('4 BIBOD(N:INTEGER;list:A)');
WRITELN('5 DELETE(PList)');
WRITELN('6 EXIT');
WRITELN;
READLN(M1);
CASE M1 OF
1: Cozdat(N);
2: DobNach(N);
3: DobKON(N);
4: BIBOD(N,Mlist);
5: DELETE(PList);
6: Exit;
END;
UNTIL M1>=8;
READKEY;
END.