Перевод с паскаля в 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.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.1 из 5