Перевести с pascal на c# само : элементами типизированного файла являются отдельные слова. изменить все его элементы на другие слова (их значения вводятся с клавиатуры). рассмотреть вариант: размер существующего файла неизвестен. uses crt; var f: file of string; s: string; i,n: integer; begin clrscr; assign(f,'filef'); rewrite(f); writeln('введите в файл словa, окончание ввода exit: '); //не знем сколько слов repeat readln(s); write(f,s); until s='exit'; clrscr; writeln('исходный файл: '); reset(f); n: =filesize(f); //определяем сколько слов в файле while not eof(f) do//пока не конец файла, читаем begin read(f,s); writeln(s); end; close(f); rewrite(f); writeln('введите в файл ',n,' новых слов'); for i: =1 to n do begin readln(s); write(f,s); end; clrscr; writeln(' файл: '); reset(f); for i: =0 to n-1 do begin read(f,s); writeln(s); end; close(f); readln end.

Using system; using system.collections.generic; using system.io; using system.runtime.serialization.formatters.binary; internal static class program {       private const string filename_ = "words.dat";       private static void main()       {               try               {                       console.writeline("ввод строк/слов, каждое с новой строки, окончание ввода - пустая строка");                       var words = new list< string> ();                       string line;                       while ((line = console. = string.empty)                               words.add(line);                       serialize(filename_, words.;                       words.clear();                       console.writeline("вывод данных из файла");                       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 раза, если это действительно надо повторить, то добавьте все в цикл и повторяйте сколько надо/хочется

я так понимаю надо написать паскале

1uses crt;

2var a,b,c: real;

3             i: byte;

4 begin

5clrscr;

6writeln('введите 3 действительных числа: ');

7readln(a);

8if a> =0 then a: =a*a else a: =sqr(sqr(a));

9 readln(b);

10if b> =0 then b: =b*b else b: =sqr(sqr(b));

11readln(c);

12if c> =0 then c: =c*c else c: =sqr(sqr(c));

13write('a=',a: 0: 2,' b=',b: 0: 2,' c=',c: 0: 2);

14readln

15end.