Имеется рисунок с разрешением 6200*4400 в нем использовалось 4 миллиона пикселей при сохранения применено сжатие 20 процентов определит объем в мегабайтах завтра сдавать уже
151
328
Ответы на вопрос:
Var i, a, b, t, d, n : integer; x : array of integer; begin read(n); setlength(x, n + 1); for i : = 1 to n do read(x[i]); a : = x[1]; for i : = 2 to n do begin b : = x[i]; d : = a * b; while (b > 0) do begin t : = a; a : = b; b : = t mod b; end; a : = d div a; end; writeln(a); end.
Популярно: Информатика
-
MishaChaos123.03.2022 02:07
-
vlad145729.04.2022 03:38
-
Mixail151014.07.2022 18:40
-
vadimsheglov021.06.2020 13:12
-
alyo7na26.01.2022 10:39
-
TanushaGuda13.11.2022 06:39
-
ladalis2225.05.2021 14:37
-
lanv07.03.2021 02:03
-
gulderya6824.09.2022 08:27
-
Никто2555528.04.2021 06:09