Advertisement
Guest User

Untitled

a guest
Feb 9th, 2016
52
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.28 KB | None | 0 0
  1. Program L5Z1;
  2. var K:array[0..17] of real; i:real; c:integer;
  3. begin
  4. writeln('Зформовані масиви: ');
  5. i:=1;
  6. for c:=0 to 17 do
  7. begin
  8. K[c]:=(((-1)*c)+3*c)/(c+1);
  9. writeln('K[',i,']=',K[c]:2:3);
  10. i:=i+1;
  11. end;
  12. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement