Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- i, j, k, bak, s, z: integer;
- sum, col, rast: double;
- begin
- s := 1300; //X
- bak := 450; //Y
- z := 200; //Z
- sum := 0;
- i := 1;
- writeln('task1-2:');
- while sum < s do
- begin
- rast := sum;
- sum := sum + bak / abs(2*i - 1);
- i := i + 1;
- writeln(rast);
- end;
- i := i - 2;
- write('col baz: ');
- writeln(i);
- if (sum = s) then
- col := bak*(i + 1)
- else
- begin
- k := 2*i + 1;
- col := bak*(i) + (s - rast)*k
- end;
- write('col topliva: ');
- writeln(col);
- writeln;
- writeln('task3:');
- col := 0;
- sum := 0;
- i := 1;
- while (sum < s - z) do
- begin
- rast := sum;
- sum := sum + bak / abs(2 * i - 1);
- i := i + 1;
- writeln(rast);
- end;
- i := i - 2;
- write('col baz: ');
- writeln(i);
- sum := 0;
- col := 0;
- while (sum < (2*i - 1)*(s - rast)) do
- begin
- col := col + bak;
- sum := sum+(bak - 2*(s - rast));
- end;
- if (sum = (2*i - 1)*(s - rast)) then
- col := col + (2*i - 1)*bak - bak
- else
- col := col - (sum-(2*i - 1)*(s - rast)) + (2*i - 1)*bak - bak;
- write('col topliva: ');
- writeln(col);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement