Учебник информатики был сохранён в pdf формате и в docx формате . Укажите формат файла каторый имеет больший размер

186

410

Посмотреть ответы 1

Ответы на вопрос:

daryaromanovsk

Информатика

4,8(68 оценок)

Type tfio=record fam,im,otch: string end; var f: tfio; s: string; g: text; i,n: integer; begin assign(g,'iof.txt'); rewrite(g); write('количество сотрудников: '); readln(n); for i: =1 to n do begin with f do begin { сформировать запись типа f } writeln('*** сотрудник № ',i,' ***'); writeln('фамилия: '); readln(s); fam: =s; writeln('имя: '); readln(s); im: =s; writeln('отчество: '); readln(s); otch: =s; { занести данные в файл } writeln(g,im,' ',otch,' ',fam) end end; close(g) end.