Перевод с паскаля в 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д