Дано натуральное число n (n< 10 написать программу, для вычисления суммы вида 0, 1+0, 2+0, 3+… (n слагаемых). использовать цикл

PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var s:=0.0;
  for var i:=1 to n do s+=1/i;
  Writeln('S=',s)
end.

Пример
n= 10
S=2.92896825396825

Int N;
//необходимо инициализировать переменную N
double sum = 0;

for(int i=1; i<=N; i++)
sum += 0.1 * i;

//результат в переменной sum

Program zadacha;

var a1,a26, norm1,norm26,S, d: real;  

n:integer;

begin

a1:=42;

d:=3;

n:=26;

norm1:=round(a1*100/67);//найдем дневную норму и округлим ее

a26:= a1+d*(n-1);//бригада выполнит в 26-й день, 26-й член арифметической прогрессии, где разность=3

norm26:= norm1*n;//найдем норму за 26 рабочих дней

S:= (a1+a26)*26/2;//сумма 26-сти членов арифметической прогрессии, все изделия за 26 дней

//вывод на экран промежуточных вычислений не обязателен

writeln ('норма за один день = ',norm1);

writeln ('изделий в 26-й день = ',a26);

writeln ('норма за 26 дней = ',norm26);

writeln ('всего изделий за 26 дней = ',S);

if S >= norm26 then

writeln ('бригада выполнит месячную норму')

else

writeln ('бригада не выполнит месячную норму');

end.

//В вашем условии m - это норма за месяц, т.е. за 26 рабочих дней

1)Program Z1;
Var st:string;
i,j,k:integer;
Begin
k:=ord('A');
For i:=1 to 26 do begin
For j:=1 to i do begin
write(chr(k));
end;
k:=k+1;
end;
end.

2)Program Z2;
Var st:string;
i,c,c1:integer;
Begin
Writeln('Введите строку');
Readln(st);
For i:=1 to length(st) do begin
if st[i]='а' then inc(c);
if st[i]='о' then inc(c1);
end;
if c>c1 then writeln('Да')
else writeln('Нет');
end.

3)Program Z3;
Var st,st1,st2,st3:string;
k,n:integer;
Begin
Writeln('Введите строку');
Readln(st);
Writeln('Введите k');
Readln(k);
n:=length(st);
st1:=copy(st,1,k);
st2:=copy(st,n-k+1,k);
st3:=copy(st,k+1,n-2*k);
st:=st2+st3+st1;
Writeln(st);
end.

4)Program Z4;
Var st,st1,st2:string;
n,i:integer;
Begin
Writeln('Введите строку');
Readln(st);
Writeln('Введите букву для удвоения');
Readln(st1);
n:=length(st);
For i:=1 to n do begin;
if st[i]=st1 then st2:=st2+st[i]+st[i]
else st2:=st2+st[i];
end;
Writeln(st2);
end.

5)Program Z5;
Var st,st1:string;
n,i:integer;
Begin
Writeln('Введите строку');
Readln(st);
n:=length(st);
For i:=1 to n do begin
if (st[i]='ж') or (st[i]='ш') then st1:=st1+st[i]+'и'
else st1:=st1+st[i];
end;
writeln(st1);
end.

6)Program Z6;
Var st,st1:string;
n,i:integer;
Begin
Writeln('Ââåäèòå ñòðîêó');
Readln(st);
n:=length(st);
st:=' '+st+' ';
For i:=1 to n do
if st[i]=' ' then begin delete(st,i+1,1); delete(st,i-1,1);
end;
writeln(st);
end.

(Все программы проверени и откомпелированы на Pascal. NET, Если есть вопросы, пишите.)