Program pr3;
const {убраны лишние описатели - чистая косметика}
a = 2.12;
b = 7.45;
h = 0.34;
var
x, f1, f2, y, s: real;
i, n: integer; {описание, необходимое для цикла}
begin
{ x := a; этот оператор не нужен }
s := 0;
n := Trunc((b - a) / h)+1; {стандартная формула числа повторений цикла }
for i := 1 to n do { Заголовок цикла }
begin {начало блока для выполнения в цикле }
x := a + (i - 1) * h; { перенесено из конца цикла }
f1 := 3 * ln(exp(1 / 5) * ln(sin(x) + sqr(x)));
f2 := ((2 * x + 1) / (x * x * x * x * x));
y := f1 / f2;
s := s + y;
end; {конец блока для выполнения в цикле }
Writeln('S=', s:10:5);
end.
Тестовое решение:
S=26390.53751
1) не ясен вопрос
2) 0 2 6 12 20 30 42 56 72 90
3) 5
4) for i := 1 to 10 do
begin
if (a[i] < 0) then
a[i] := -1
else a[i] := 1;
write(a[i], ' ');
end;
Код полностью
var
a: array[1..10] of integer;
i, k: integer;
begin
for i := 1 to 10 do
begin
a[i] := sqr(i) - i;
write(a[i], ' ');
end;
writeln;
K := 0;
for i := 1 to 10 do
if (a[i] > 10) and (a[i] < 70) then
k := k + 1;
Write(k);
writeln;
for i := 1 to 10 do
begin
if (a[i] < 0) then
a[i] := -1
else a[i] := 1;
write(a[i], ' ');
end;
end.
1)
dopustim svet 1 bit. pixel=80x50
pixel=4000
razmer=4000x svet(1)
razmer=4000
2)
svetnaya paltira=2^5
znachit svet=5
pixel=80x50
pixel=4000
razmer=4000x5
razmer=20000
3)
//PascalABC.Net 3.2
function f(n: integer):=3*n-1;
begin
var sum:=0;
for var i:=1 to 60 do sum+=f(i);
write (sum);
end.