Ответ:
program test01;
var a, b, rezult: integer;
begin
a:=6;
b:=3;
rezult:= a div b;
writeln ('rezult = ', rezult);
end.
Объяснение:
Const
N = 13;
Var
A:array[1..N] of integer;
i:integer;
Begin
Randomize;
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(A[i],' ')
End;
WriteLn;
i:=1;
While i <= N do
Begin
Write(A[i],' ');
i:=i+2;
End;
WriteLn;
i:=2;
While i <= N do
Begin
Write(A[i],' ');
i:=i+2;
End;
End.
Не понял точно, что значит в развернутом виде, но если ты имел ввиду разложить на десятки, то вот:10000+3000+600+60+3
Ответ:
var x:Real;
begin
write ('x = ');
Readln(x);
if x<0 then Write('y = ',x*x) else
if x>2 then Write('y = ',(3*x-1)/(2*x)) else
Write('y = ',sqr(x)*x+5)
end.
Долговременная и оперативная это тоже самое!