Чтобы сравнить, элементарно переведем в десятичную систему счисления:
65₈=6*8^1+5*8^0=48+5=53₁₀
53₇=5*7^1+3*7^0=35+3=38₁₀
Значит, 53₇<65₈
<span>y:=t; - нельзя присваивать переменную одного типа переменной другого типа.
y:=pred(winter); - не существует предшественника у значения </span><span><span>winter.
</span>t:=cold; - неверное (недопустимое) значение переменной для типа t
<em><u>Ответ:</u></em> допустимы присваивания </span><span>x:=pred(spring); и </span><span><span>t:=warmth;</span></span>
Var i,d:integer;
uses crt;
Begin
for i:=1 to 20 do begin
d:=sqr(i);
end;
readln;
end.
Не проверял, накидал на быструю руку, но должно работать.
Различные windows быстрей и лучше работает.
Program asd;
USES crt;
Const n=100;
Var A:array[1..n] of integer;
i,kp,ko:integer;
BEGIN
Writeln('Массив: ');
For i:=1 to n do
begin
A[i]:=-20+Random(40);
Write(A[i]:4);
end;
Writeln;
kp:=0;
ko:=0;
For i:=1 to n do
begin
If A[i]>0 then kp:=kp+1;
If A[i]<0 then ko:=ko+1;
end;
Writeln('Кол-во положительных элементов: ' ,kp);
Writeln('Кол-во отрицательных элементов: ' ,ko);
END.