К каждой разновидности адресов написать по 5 адресов и их расшифровать нужно. Заранее

Question

Информатика: К каждой разновидности адресов написать по 5 адресов и их расшифровать нужно. Заранее

soso9 · Accepted Answer

Задача 1. var   f:Text;   n,nmax,nmin:integer; begin   Assign(f, input.txt ); Reset(f);   nmax:=-32786; nmin:=32767; {границы представления integer}   while not Eof(f) do begin     Readln(f,n);     if (n 0) and (n mod 2=0) then       if nmax n then nmax:=n       else         if nmin n then nmin:=n   end;   Close(f);   Assign(f, output.txt ); Rewrite(f);   Writeln(f,nmin, ,nmax);   Close(f) end. Задача 2. const   m=100; { максимальное количество чисел в файле } var   f:Text;   i,j,n,k:integer;  ...

MOGZ ответил