Если да, то
0001 - 1
0010 - 2
0100 - 4
1000 - 8
10000 - 16
25 = 16 + 8 + 1 = 11001
12 = 8 + 4 = 1100
Программа должна выглядеть вот так:
program simvol;
const
n=5;
var
A:array[1..n,1 ..n]of integer;
i, j:integer;
Begin;
for i:=1 to n do
begin
for j:=1 to n do
begin
(A[i,j]):=random(100);
write(A[i,j]:4);
end;
writeln;
end;
end.
Вы не объявили переменные i и j, так же допустили сиснтаксические ошибки.
ответ Счастливого плавания
Var len: Integer;
begin
write('Введите строку: ');
readln(s); // считываем из стандартного потока ввода, например.
len := length(s); запоминаем длину строки
end;
Key Words for FKN + antitotal forum (CS VSU):