1. 1245*1245 = 1550025 пикселей
если 2 цвета то глубина цвета равна 2 - это 1 бит на пиксель
1550025 * 1/8/1024 = 189 Кб
2. 1байт = 8 бит.
Зачем дан размер не понятно. 2^8 = 256
Ответ: 256
Program gt;
var a:array[1..12]of integer;
n,i,max:integer;
begin
randomize;
for i:=1 to 12 do
begin
a[i]:=random(100)-50;
write(a[i],' ');
end;
writeln;
write(a[2],' ',a[3],' ',a[4],' ',a[9],' ',a[12],' ');
max:=a[1];
for i:=2 to 12 do
begin
if(a[i]>max)then max:=a[i];
end;
writeln(max);
end.
Const
n = 10;
m = 10;
var i, j, column, row, sum_column, sum_row: integer;
arr: array [1..n,1..m] of integer;
begin
for i :=1 to n do
begin
for j:=1 to m do
begin
arr[i,j]:= random()*10;
end;
end;
readln(row);
readln(column);
sum_column:= 0;
sum_row := 0;
for i:=1 to n do
begin
sum_row := sum_row + arr[i,row];
end;
for j:=1 to m do
begin
sum_column := sum_column + arr[column, j];
end;
writeln(sum_column);
writeln(sum_row);
end.
Не проверено. Написал сходу в окне.
Я не знаю как это сделать в паропаскале, но могу лишь чуть-чуть подтолкнуть. Нужно сотавить уравнение круга (x-a)^2+(y-b)^2=r^2;
Затем вместо х и y подставить координаты точки в получившееся уравнение, три случая:
*если то что слево<то что справо, то точка внутри окружности
*если то что слево уравнения == то что справа то на окружности
* иначе вне окружности
#include <iostream>
using namespace std;
int main() {
int n;
cin >> n;
int *arr = new int[n];
for (int i = 0; i < n; i++) {
cin >> arr[i];
}
int max = -1;
int min = -1;
for (int i = 1; i < n; i++) {
if (arr[i] > 0 && arr[i] % 2 == 0) {
if (min == -1) {
min = arr[i];
}
if (max < arr[i]) {
max = arr[i];
}
if (min > arr[i]) {
min = arr[i];
}
}
}
cout << min << " " << max;
system("pause");
return 0;}