const n=10;
var a:array[1..n] of integer;
i: integer; p: longint;
begin
writeln('Введите элементы массива:');
for i:=1 to n do read(a[i]);
p:=1;
for i:=1 to n do p:=p*a[i];
writeln('p = ',p);
end.
Пример:
Введите элементы массива:
2 -3 4 1 8 -1 5 -7 -2 3
p = 40320
Program tet;
var i:byte;
a,s1,s2,s3:real;
beginwriteln(' введите значение а');readln(a);s1:=1;s2:=1;for i:=1 to 64 do if i mod 2=1 then s2:=s2*(a-i) else s1:=s1*(a-i);s3:=s2/s1;writeln(s3);<span>end.</span>
Ответ: "о"
программирование
п о р м и о а и
иаоимроп
и о м о
омои
о о
оо
о
Function StRevers(St : String) : String;
Begin
If Length(St)>1 then StRevers:=St[Length(St)]+StRevers(Copy(St,2,Length(St)-2))+St[1]
else StRevers:=St;
end;
Function Del2(st : String) : String;
Begin
If Length(st)>0 then Del2:=st[1]+Del2(Copy(st,3,Length(st)-2)) else Del2:='';
end;
Var
S : String;
Begin
S:='программирование';
While Length(S)>1 do S:=StRevers(Del2(S));
Writeln(S);
end.