Блок схема приведена в приложенном файле.
Результатом работы программы является вывод на экран:
-если x<= y И y<=z, то выводим значения произведений 2*x, 2*y, 2*z
-иначе выводим модули значений переменых x, y, z.
4096 Байт = 4*2^10 Байт = (4*2^10)/2^10 КБ = 4 КБ
Линейка состоит из дерева или пластмасса,ремень из кожи или наполнителя то есть химия.Помог не помог но написал))
Uses crt;
const
n:integer = 10;
var b: array[1..n] of byte;
a:integer;
d:byte;
begin
for d:=1 to 10 do b[d]:= random(10)+1;d:=1;
a:=1;
while (d < n) do begin a:=a*b[d]; d:=d+2;
end;
writeln(a);
<span>end.</span>
Function reverse(s:string):string;
var s1:string;
i:integer;
begin
for i:=1 to length(s) do
s1:=s[i]+s1;
reverse:=s1;
end;
var s:string;
begin
readln(s);
s:=reverse(s);
writeln(s);
<span>end.</span>