Program Pr;
var x,y,z:real;
i:integer;
Begin
y:=-1;
x:=-pi;
For i:=1 to 7 do begin
z:=x*x+y+sin(x);
if (x<>0) then x:=x+(pi/6);
if i=6 then x:=0;
if y<>1 then y:=y+0.4;
writeln('z=',z:4:4);
end;
end.
Отлично видно, что 011 вначале и в конце слова ОкнО, следовательно 011=О. Отсюда остаток делим пополам и 01=К, 10=Н. Условие, ч<span>то коды согласных и гласных букв имеют разную длину, выполняется. Отсюда 011=О, 10=н, 011=О, полученное слово - ОНО</span>
Uses crt;const h=100;var a: array [1..h,1..h] of integer; n,x,y,max: integer;
begin write('Длина матрицы= '); readln(n); // Enter for x:=1 to n do for y:=1 to n do begin write('a[',x,',',y,']= '); readln(a[x,y]); end; // max:=a[1,1]; while x<>n do begin if a[x,x] > max then begin max:=a[x,x]; y:=x; end; inc(x); end; writeln('Максимальный элемент равен ',max,'.Его координаты (',y,';',y,').'); <span>end.</span>