Var stkv,rkr:real;
begin
writeln('Введите сторону квадрата');
readln(stkv);
writeln('Введите радиус круга');
readln(rkr);
if rkr<stkv/2 then write('входит') else write('не входит')
<span>end.</span>
Цифр, может быть?
для кодирования нужно 4 бита
Я только сам цикл замены элементов массива напишу, до этого надеюсь смогешь. Если нет - в лс напиши)
Var
bufer: integer;
bufer: = 0;
Begin
For i = 1 to 4
Begin
bufer:= x[i];
x[i]:= y[i];
y[i]:= bufer;
End;
For i = 1 to 4
write(x[i], ' ');
writeln;
For i = 1 to 4
write(y[i], ' ');
End.