const
n=15;
var
a:array [1..n] of integer;
i,min:integer;
begin
randomize;
for i:=1 to n do begin
a[i]:=random(104)-37;
write (a[i],' ');
end;
writeln;
min:=a[1];
for i:=2 to n do
if (odd(a[i])=true) and (a[i]<min) then min:=a[i];
writeln (min);
readln;
end.
Wings 3D
Art of Illusion
SketchUp
K-3D
Blender
и встроеный в Windows 10 Paint 3D
Всего объем сообщения 3кб = 3072 байт = 24576 бит
На кодирования одного символа ушло 24576 : 6144 = 4 бит/символ
С помощью 4 бит можно закодировать < 2^4 символов
Ответ: Символов меньше 16.
Ошибки нет.
В условном операторе после if пишется <условие> (в данном случае "x=100"), а после then - <оператор> (в данном примере это оператор присваивания "y:=x*x;")
A = 5.
B = 4.
A = B + 4 = 4 + 4 = 8.
Ответ: A = 8, B = 4.