{1} var a,b,n:integer; c:real; begin read(n); for a := 1 to n-1 do for b := a to n-1 do begin c := sqrt(sqr(a) + sqr(b)); if c < n then if c = trunc(c) then writeln(a:3,' ',b:3,' ',c:3); end; end.
{2} var n,i:integer; s,x:real; begin read(n); s := 0; for i := 1 to n do begin read(x); s := s + x; end; writeln(s/n); end.
120 Гбайт = 120 * 1024 * 1024 * 1024 * 8 бит = 1030792151040 бит 700 Мбайт = 700 * 1024 * 1024 * 8 бит = 5872025600 бит Кол-во = 1030792151040 / 5872025600 шт = 175.54285714285714 шт ~= 176 шт (округляем в большую сторону так как кусками тут быть не может)
[Считаем что 1 Гбайт = 2^30 = 1 073 741 824 байт] [Для надежности все переводим в биты] [Считалось скриптом, так что арифметических ошибок нет, только логические возможны]