Запишем формулу суммы в виде, более удобном для программирования:
var
i:integer;
x,xi,x2,s:real;
begin
Write('x = '); Read(x);
s:=0.5;
xi:=x;
x2:=x*x;
for i:=2 to 10 do begin
xi:=xi*x2;
s:=s+xi/(2*i)
end;
Writeln('S=',s)
end.
<u>Пример</u>x = 3.62
S=2254030236.00533
<em>Во вложении приведено контрольное решение</em>
Var
i: integer;
d, s: real;
begin
d := 10;
s := d;
for i := 2 to 7 do
begin
d := d * 1.1;
s := s + d;
end;
writeln(s);
end.
Блок-схему не умею. Но эта программа хоть работает и правильно
Var
i,N,A,k:integer;
Begin
k:=0;
Write('N = ');Read(N);
For i:= 1 to N do
Begin
Read(A);
if (A mod 10 = 8) then k:=k+1;
End;
WriteLn(k);
End.
Вот держите:
var a,k:integer;
begin
repeat
readln(a);
if a mod 3 = 0 then inc(k);
until a=0;
writeln(k-1);
end.
Var x:integer;
begin
for x:=5 to 14 do begin
x:=x*(x+1)
end;
end.
PASCAL не уверен что работает но смысл такой