// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n := ReadInteger;
var a := ReadArrInteger(n);
var n2 := n div 2;
(a[:n2].Reverse + a[n2:].Reverse).Println
end.
1.
var i,n:integer; s:real;
begin
write('n = '); readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln('s = ',s);
end.
Пример:
n = 5
s = 2.28333333333333
2.
var x,a,s:real; i:integer;
begin
write('x = '); readln(x);
a:=x; s:=x; i:=1;
while i<11 do
begin
i:=i+2;
a:=x*x*a;
s:=a/i;
end;
writeln('s = ',s);
end.
Результат:
x = 3
s = 16104.2727272727
Так понимаю, консольный Delphi - это Pascal?)
var x, y, a, k: real;
begin
readln(a, y);
if (a > y) then
begin
x := a / 100;
writeln(x);
end;
if (a < y) then
begin
k := 100 * abs(a);
writeln(k);
end;
<span>end.</span>
Var s1,s2:string; x:char; i,p:integer;
begin
writeln('Введите предложение:');
readln(s1);
write('x = ');
readln(x);
for i:=length(s1) downto 1 do
if s1[i] in [',',';',':','.','!','?']
then delete(s1,i,1);
s1:=s1+' ';
s2:='';
p:=pos(' ',s1);
while p>0 do
begin
if s1[p-1]=x then s2:=s2+copy(s1,1,p-1)+',';
delete(s1,1,p);
p:=pos(' ',s1);
end;
if s2='' then writeln('В предложении нет искомых слов')
else
begin
delete(s2,length(s2),1);
writeln(s2);
end;
end.
Пример:
Введите предложение:Дано предложение. Посчитать количество слов, заканчивающихся на заданную букву, и записать эти слова в другую строку через запятую.
x = ю
заданную,другую,запятую