var words_from_file = (string[]) Deserialize(fileName_); for (var i = 0; i < words_from_file.Length; i++) Console.WriteLine($"{i} = {words_from_file[i]}"); } catch(Exception e) { Console.WriteLine(e); } finally { Console.ReadLine(); } }
private static void Serialize(string file, object o) { using (var fs = new FileStream(file, FileMode.Create, FileAccess.Write, FileShare.ReadWrite)) { var bf = new BinaryFormatter(); bf.Serialize(fs, o); } }
private static object Deserialize(string file) { using (var fs = new FileStream(file, FileMode.Open, FileAccess.Read, FileShare.Read)) { var bf = new BinaryFormatter(); var o = bf.Deserialize(fs); return o; } } }
Сериализация в бинарный файл. В вашей программе действия записи и вывода происходят 2 раза, если это действительно надо повторить, то добавьте все в цикл и повторяйте сколько надо/хочется
var
s: string[6];
n: integer;
begin
s := 'отлично';
n := length(s);
writeln(length('отлично'));
writeln(n);
end.
Изначально выставлен тип string[6], значит если присвоить строку больше, то ее обрежет по 6 символов, вот и весь прикол
ответ 6
2) рисунок
3)var
s, s1: string;
n: integer;
begin
s := 'информатика';
s1 := copy(s, 3, 5);
n := pos(s, s1);
writeln('s=', s);
writeln('s1=', s1);
writeln('n=', n);
end.
Вывод
s=информатика
s1=форма
n=0
Все верно, в s1 не содержится s, а наоборот