1. point1. обрахуйте, яку найбільшу кількість точок с цілочисельними координатами на листку в клітинку можливо накрити квадратом зі стороною n клітинок, при умові, що сторони квадрата паралельні сторонам клітинок. технічні умови. програма point1 читає з пристрою стандартного введення ціле число n (1 ≤ n ≤ 105 програма виводить на пристрій стандартного виведення відповідь на . приклади введення виведення 1 4 2 9

1920*1080*24 бит пикс * 24 кадра * 1 сек = 1194393600 бит вес 1 секунды видео-дорожки в видеоролике

((ln(65536)/ln(2)) бит на Гц * (192 * 1000) Гц * 24 канала * 1 сек = 73728000 бит вес одной секунды аудио-дорожки в видеоролике

было раздано 5805 мбайт / 5 мбайт = за 1161 секунд.
вес файла 25 мбайт сек * 1161 сек = 29025 мбайт * 1024 * 1024 * 8 = 243479347200 бит вес файла.

получается нужно подуравнять чтоб под размер получилось
(1194393600*x)+(73728000*x)=243479347200
1194393600 + 73728000 = 1268121600
243479347200 / 1268121600 = 192
x=192 сек

1.

а)

var a, b: integer;

read(a, b);

writeln((a + b) / 2);

б)

var a, b, c, d, e: integer;

read(a, b,c, d, e);

writeln(a*a, b*b, c*c, d*d, e*e);

в) Не знаю это.

д) Решето Эратосфена.

2)

а)

array [1..n] of integer;

var c: integer;

c := 1;

read(n);

while //запускаем цикл для ввода значений массива и подсчёта произведения

read(a[n]);

c = c * a[n];

end;

writeln(c);

б)

array [1..n] of integer;

var c: integer;

read(a[0]);

c := a[0];

while //запускаем цикл для ввода значений массива и определения максимального элемента

read(a[n]);

if {

c > a[n];

} then c := a[n];

end;

writeln(c);

в)

array [1..n] of integer;

var c: integer; //переменная-счётчик

while //запускаем цикл для ввода значений массива и определения количества отрицательных чисел

if {

a[n] < 0;

} then c := c + 1;

end;

writeln(c);

г)

array [1..n] of integer;

var c: integer; //переменная-счётчик

while //запускаем цикл с позиции a[1] для ввода значений массива и определения количества искомых элементов

if {

a[n] = a[0];

} then c := c + 1;

end;

writeln(c);