<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function nDigits(n:int64):integer; // если число
begin
Result:=0;
if n<0 then n:=-n;
while n>0 do begin
Result+=1;
n:=n div 10
end
end;
function nDigits(s:string):=s.Length; // если строка
begin
Writeln(nDigits(1234567890123456)); // 16
Writeln(nDigits('123456789012345678901234567890')) // 30
end.
<u>Результат</u>
16
30
Тут же все просто х=0 потом .......
Assign<span> – устанавливает связь между именем файла в программе (файловой переменной ) и физическим именем файла, принятым в ОС.</span>
Reset - открывает существующий файл для чтения.
Rewrite<span> – создает и открывает новый файл для записи на внешнем устройстве (если файл ранее существовал, вся предыдущая информация из него стирается).</span>
Close<span> - закрывает открытый файл.</span>
................................................................................................
<span>1 определить имя массива - a
2 узнать тип элементов массива - </span><span>integer (целый)
</span><span>3 какой переменной обозначены индексы элементов массива - i
4 кол-во элементов в данном массиве - 10
5 как обозначается текущий элемент массива - </span><span>a[i]
</span><span>6 есть ли отрицательные элементы в данном массиве - нет (элементы массива - это числа из диапазона [0,99]</span>
