3. Определите тип переменной a = 5,75 1. целое 2 логическое 3 вещественное 4 целое
193
307
Ответы на вопрос:
Procedure del_n(var f: fail); var n,i: integer; c: char; x: stud; begin write('удалить запись № '); readln(n); reset(f); if (filesize(f)< n)or(n< 0) then begin writeln('в файле нет такой записи'); close(f); write('press '); readln; exit; end; if n=filesize(f)then begin seek(f,filesize(f)-1); truncate(f); close(f); write('press '); readln; exit; end; seek(f,n-1); for i: =n-1 to filesize(f)-2 do begin seek(f,i+1); read(f,x); seek(f,i); write(f,x); end; seek(f,filesize(f)-1); truncate(f); close(f); write('press '); readln end;
Популярно: Информатика
-
Аделя050421.12.2022 20:52
-
kira132110.12.2022 21:13
-
Lunit04.08.2022 05:21
-
ученик152307.04.2021 14:15
-
кристина204303.03.2022 08:59
-
islamovkasymzh122.05.2021 01:51
-
Ref22pm22.12.2020 00:10
-
gels5344Inetka22.09.2022 00:28
-
помогитепж1927.03.2020 21:23
-
Анасія19.12.2021 20:57