32*84*8=21504 бит=2,625 Кб
640:2.625=236странц
вроде все.
В программировании операцию "задания" конкретных значений объектам программы называют присваиванием.
В Языке Паскаль присваивание начальных значений элементам массива можно производить либо непосредственно, либо в цикле.
Непосредственное присваивание используется, если количество таких присваиваний невелико. В этом случае записываются операторы присваивания для каждого элемента массива, которому нужно присвоить значение, например: a[6]:=5; b[4,12]:=11; и т.д.
Присваивание в цикле используется, когда количество элеметнов массива велико, а значение для конкретного элемента можно или задать общим алгоритмом, или ввести извне (с клавиатуры или из файла). В этом случае цикл организуется так, чтобы параметры цикла перебрали все необходимые индексы элементов массива.
Примеры:
for i:=1 to 20 do a[i]:=3*i^2-1;
for i:=1 to m do
for j:=1 to n do
readln(a[i,j]);
Еще пример - заполнение случайными числами в диапазоне (-20..20)
Randomize;
for i:=1 to m do x[i]:=Random(40)-20;
Program adres;
begin
writeln ('мой адрес: здесь пиши свой адрес');
writeln ('мой телефон: 8 888 88 88');
end.
Задание #1
var a:integer;
begin
a:=10;
while a<=150 do
begin
write (a,' ');
a:=a+10
end;
writeln;
a:=200;
repeat
write (a,' ');
a:=a-10
until a<100
end.
Задание #2
var a,b:integer;
begin
readln(a,b);
if a>b then write (a) else write (b)
end.
Задания #3
var a,b,c:integer;
begin
readln(a,b,c);
if (a>b) and (a>c) then write (a,' ',b+c);
if (b>a) and (b>c) then write (b,' ',a+c);
if (c>a) and (c>b) then write (c,' ',a+b)
end.
Чтобы сумма переменных была равна нулю (т.е. была ложна), нужно чтобы каждый элемент был равен нулю.
X1=0
X2=1
X3=0
X4=1
X5=1
X6=1
X7=1
Следовательно существует всего лишь один набор чисел.