Перевод кода с 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();

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


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

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

15   голосов , оценка 3.867 из 5