1) программа дешифратор.
2) прога для 3D моделей. (3D Studio Max)
var A:array[1..10] of integer;
i:integer;
s: integer;
begin
writeln('Массив А:');
s:=0;
for i:=1 to 10 do
begin
write('Введите ',i,'-e число ');
readln(A[i]);
if A[i] <> 0 then s:=s+1;
end;
write('Строка чисел: ');
for i:=1 to 10 do
begin
write(a[i],' ');
end;
writeln();
writeln('Сумма элементов, не равных нулю = ',s);
end.
НА ЛОДКУ СКОЛЬКО ПОМЕЩАЕТСЯ РЫЦАРЕЙ И ОРУЖЕНОСЦЕВ?
Для хранения цвета одной точки изображения с 32 <span>градациями серого цвета требуется log(2)32 = 5 бит. Объем файла = 800*600*5 бит = 800*600*5/8 байт = 100*600*5/1024 Кбайт </span>≈ 293 Кбайт