Перевод кода с Pascal - C# (198819)
Формулировка задачи:
uses crt; var n,t,i,max,min:integer; begin clrscr; i:=1; max:=-100; min:=100; writeln('t>100 - Exit'); writeln; while t<120 do begin write(i, ' Vvod t='); readln(t); if t<100 then begin if t>max then max:=t; if t<min then min:=t; end; if i/24=i div 24 then begin writeln('max=',max); writeln('min=',min); end; i:=i+1; end; writeln; writeln('max =',max); writeln('min=',min); readln; end.
Решение задачи: «Перевод кода с Pascal»
textual
Листинг программы
int t = 0, n = 0, i = 1, max = -100, min = 100; Console.Writeline("t > 100 - Exit"); while(t<120) { Console.Writeline("{0} Vvod t=", i); Console.Writeline(); t = int.Parse(Console.Readline()); if (t < 100) { if (t > max) max = t; if (t < min) min = t; } if (i/24 == (double)i / 24 ) { Console.Writeline("max = {0}", max); Console.Writeline("min={0}", min); } i++; } Console.Writeline(); Console.Writeline("max = {0}", max); Console.Writeline("min={0}", min); Console.ReadKey();
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д