Определи какое значение будет выведено на экран монитора после выполнения программы. program winter; var g, i: integer; begin i := 6; g := -2; i := 14 - 2*g - i; g := i/3 - g; write (g); end.​

скор передачи=объём файла/время,отсюда  объём файла =скорость*время,т.е. 512000 * 16=8192000 бит,затем преводим все в кбайты: 8192000/8/1024=1000 кбайт

1)

vara, b: integer;

beginreadln(a, b); if (a div 10 + a mod 10) > (b div 10 + b mod 10) thenwriteln('сумма цифр ', a, ' больше')elsewriteln('сумма цифр ', b, ' больше'); end.

2)

vara: integer;

beginreadln(a); writeln((a mod 10) * 10 + a div 10); end.

3)

vara: integer;

beginreadln(a); if ((a div 100) = (a mod 100) div 10) or ((a div 100) = (a mod 10)) or ((a mod 100) div 10 = (a mod 10)) thenwriteln('есть 2 одинаковые цифры')elsewriteln('нет 2-х одинаковых цифр'); end.

ну, считай за 1 секунду 36 мегабайт. в 2 часах 120 минут или 7200 секунд. 7200*36=

259200 мегабайт = 259.2 гигабайта. (странный фильм какой

program a1;

  uses crt;

  var a: array[1..31] of longint; k,i: integer;

begin

  clrscr;

  for i: =1 to 31 do begin

  write('введите температуру ',i,' числа: ');

  readln(a[i]);  

  if a[i]< 0 then k: =k+1;

  end;

writeln('  количество дней в которые были заморозки = ', k);

readln

end. 

p.s. если паскаль abc, то выделенное писать не обязательно