Я еще не студент!!!Понимаете мне еще 12 то нет!!!А баллы заработать хочется.
<span>program test;
var
i, n: word;
begin
write('Введите число: ');
readln(n);
for i := 1 to n do begin
write(i, ' ')
end;
<span>end.
Блок-схему прикрепил</span></span>
Var
i,k:integer;
a:array[1..10]of integer;
begin
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(-10,10);
write(a[i],' ');
end;
writeln;
for i:=1 to 9 do
begin
if a[i]*a[i+1]<0 then k:=k+1
end;
writeln('Число перемен знака: ',k)
<span>end.</span>
Зависит от того в сколькобитовой кодировке оно закодировано.
Считаешь количество символов в строке (включая пробелы и знаки препинания), и умножаешь на количество бит, приходящееся на 1 символ.
если на 1 символ приходится 8 бит (8-битовая кодировка, например koi-8), то информационный объем слова "Дмитрий" будет равен 7*8=56 бит
если кодировка 16-битная, то 7*16=112 бит.
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (m, n) := ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a := MatrRandom(m, n, -99, 99);
a.Println(4);
Writeln(4 * a.ColCount * '-');
var nCol := ReadInteger('В каком столбце ищем?');
var C := ReadInteger('На кратность чему проверить?');
if a.Col(nCol - 1).Any(t -> t mod C = 0) then
Writeln('Есть такие элементы')
else Writeln('Таких элементов нет')
end.