Паскаль тілінен есеп шығаруға көмектесіңіздерші?!

Question

Төмендегі өрнектің мәнін есептейтін программа құрыңыз: 1+2.1+3.1+n.1      *n>=2*

Answer 1

var i,n:integer; s:real;
    begin
    write('n=');read ( n);
    s:=1;
    for i:=2 to n do
    s:=s+i*0.1;
    writeln('s= ',s:4:2);
    readln();
    end.

Answer 2

*s=*1+2.1+3.1+n.1 n>=2

program s_mani;  //програм атауы
var s:real; n:integer; //айнымалылар, яғни s - нәтиже, n - енгізілетін айнымалы
begin
writeln('butin n manin engiziniz: ');
readln( n ); //n санын енгізу керек
if n>=2 then s:=1+2.1+3.1+n+0.1 //егер енгізілген n саны n>=2 шартына сәйкес келсе, онда s=:1+2.1+3.1+n.1 амалы орындалады
else writeln('shart boiynsha, engizilgen n>=2 boluy kerek '); //егер енгізілген n саны n>=2 шартына сәйкес келмесе, ескерту хабары шығады
writeln('s= ',s:2:2);  //нәтижесі
readln;
end.

Answer 3

шығарып берінізші

п берш