. И отмечу как "Лучший ответ"

С++

#include <iostream>

using namespace std;

int main()

{

   int S = 0;

   int a = 1;

   while(a <= 10)

   {

       S = S + a;

       a = a + 1;

   }

   cout << S;

   return 0;

}

55

Объяснение:

program z;

var S,a:integer;

begin

S:=0;

for a:=1 to 10 do S:=S+a;

write(S)

end.

var

i,j,k: integer;

s,p: string;

begin

p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';

readln(s);

k: =0;

for i: =1 to length(s) do

for j: =1 to length(p) do

if s[i]=p[j] then k: =k+1;

writeln(k);

end.

var

x,y: real;

i,n: integer;

begin

n: =1;

x: =1;

y: =1;

for i: =1 to 5 do

begin

n: =n*i;

x: =-1.5*x;

y: =y*(x+1/n);

end;

writeln(y: 15: 5);

end.