Регистрация
999Roman999999991
28.02.2023 13:26
Информатика
Есть ответ 👍

Надо. исправте ошибки. program untitled; uses crt; type m=array[1..100]of integer; e= file of integer; var k,t: integer; f,g,h: e; i,n,c,a: integer; begin assign(f,'f.dat'); assign(g,'g.dat'); assign(h,'h.dat'); rewrite(f); writeln('ввод n'); read(n); for i: =1 to n do begin writeln('ввод k[i]'); readln(t); write(f,t); end; reset(f); rewrite(g); rewrite(h); while not eof(f)do begin read(f,t); a: =t mod 2; if a< > 0 then begin read(g,t); write(t); writeln('fail chetnih chisel: '); while not eof(g) do begin read(g,t); write(t,' '); end; end else read(h,t); write(t); writeln('fail nechetnih chisel: '); while not eof(h) do begin read(h,t); write(t,' '); end; end; close(f); close(g); close(h); end. дан файл f с целыми числами . нужно из этого файла взять нечетные числа поместить в файл h . а четные в файл g.

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

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

kwasmarianna
kwasmarianna
4,4(33 оценок)
// pascalabc.net 3.3, сборка 1547 от 07.10.2017 // внимание! если программа не работает, обновите версию! begin   var (x1,y1): =readreal2('координаты 1-й точки: ');   var (x2,y2): =readreal2('координаты 2-й точки: ');   var a: =abs(x2-x1); // считаем, что координаты указаны верно   var d: =a*sqrt(2);   var (xc,yc): =((x2+x1)/2,(y2+y1)/2);   writeln('длина стороны ',a,', диагональ ',d);   writeln('координаты центра пересечения диагоналей: ',xc,' ',yc) end. пример координаты 1-й точки: -3 3.5 координаты 2-й точки: 4 -3.5 длина стороны 7, диагональ 9.89949493661167 координаты центра пересечения диагоналей: 0.5 0

Популярно: Информатика