С функции val. У нее 3 аргумента: первый - строка, которую нужно представить в число; второй - переменная типа integer, в которую мы поместим это уже не как строку а как ЧИСЛО; третий - переменная ошибки. Вот пример программы:
var stroka: string; i, error: integer; begin
writeln( 'Введите строку из цифр:' ); readln( stroka ); val( stroka, i, error ); writeln( i );
Если вам нужно на паскале, то ловите. Числа в массив выпадают рандомно. Диапазон (-50, 50): var mass: Array[1..30] of real; i, j: integer; isE: boolean; begin randomize; isE := true; for i := 1 to 30 do begin mass[i] := random (100) - 50; end; for i := 1 to 30 do begin writeln('mass[', i, '] = ', mass[i]); end;
for i := 1 to 30 do begin for j := 1 to 30 do begin if i <> j then begin if mass[i] = mass[j] then begin writeln('Массив не уникален!'); isE := false; end; end; end; end; if isE = true then writeln('Массив уникален!');
Обьясняется различие в размерах файлов тем, что разные кодировки используют разное кол-во памяти, к примеру обычный *.txt файл хранит просто упорядоченный набор символов, а *.rtf уже хранит такие характеристики как размер шрифта цвет выравнивание и много других параметров. Разные расширения текстовых данных сделаны для хранения максимального кол-ва данных в наименьшем возможном ко-во памяти (txt), и наоборот хранения текста в исходном виде с исходными характеристиками (rtf). Ну а размеры файлов можешь и сам посмотреть сделав эту лабу. Эхх... бывают же ленивые люди(((
Вот пример программы:
var stroka: string; i, error: integer;
begin
writeln( 'Введите строку из цифр:' );
readln( stroka );
val( stroka, i, error );
writeln( i );
end.